add itos builtin

2013-10-20 16:26:53 -07:00 · 2013-10-20 16:26:53 -07:00 · 1723239d9b
parent 2851a60eb0
commit 1723239d9b
1 changed files with 1 additions and 0 deletions
--- a/interp.hs
+++ b/interp.hs
@ -54,6 +54,7 @@ initialState = ([stdout, stdin],
 						   		("stdout", StreamV 0),
 						   		("putstr", Builtin $ BIF _putstr),
 						   		("putstrln", Builtin $ BIF (\x -> _putstr $ x +$ StrV "\n")),
+						   		("itos", Builtin $ BIF (\(IntV i)  -> return $ StrV $ show i)),
 						   		("getline", Builtin $ BIF _getline)])

 eval :: AST -> InterpState Value