Skip to content

Commit b5360c0

Browse files
committed
Fixes to address Julie's comments
1 parent 1155d5f commit b5360c0

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

doc/libraries_ref_guide/LibDoc/Prelude.tex

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4372,7 +4372,7 @@ \subsubsection{String type pseudo-functions}
43724372
\te{stringOf}&Converts a string type into its String value.\\
43734373
\cline{2-2}
43744374
&\begin{libverbatim}
4375-
function String valueOf (t) ;
4375+
function String stringOf (t) ;
43764376
\end{libverbatim}
43774377
\\
43784378
\hline
@@ -4387,7 +4387,7 @@ \subsubsection{String type pseudo-functions}
43874387
\hline
43884388
\te{TStrCat}&\verb'TStrCat#(s1,s2)'&Concatenate $s1$ and $s2$\\
43894389
\hline
4390-
\te{TNumToStr}&\verb'TNumToStr#(n1)'&Convert numeric type $n$ to a string type\\
4390+
\te{TNumToStr}&\verb'TNumToStr#(n)'&Convert numeric type $n$ to a string type\\
43914391
\hline
43924392
\end{tabular}
43934393
\end{center}

src/comp/Pred.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -261,7 +261,7 @@ expandSyn t0 = exp [] t0 []
261261
truncType k n t = internalError ("expandSyn,truncType\n" ++ ppReadable (k, n, t0, t))
262262

263263
isTFun :: Id -> Bool
264-
isTFun i = i `elem` numOpNames
264+
isTFun i = i `elem` numOpNames ++ strOpNames
265265

266266
apTFun :: Type -> Id -> [Type] -> Type
267267
apTFun _ i [TCon (TyNum x px), TCon (TyNum y py)] | Just n <- opNumT i [x, y] = TCon (TyNum n p')

0 commit comments

Comments
 (0)