add itos builtin
This commit is contained in:
parent
2851a60eb0
commit
1723239d9b
|
@ -54,6 +54,7 @@ initialState = ([stdout, stdin],
|
||||||
("stdout", StreamV 0),
|
("stdout", StreamV 0),
|
||||||
("putstr", Builtin $ BIF _putstr),
|
("putstr", Builtin $ BIF _putstr),
|
||||||
("putstrln", Builtin $ BIF (\x -> _putstr $ x +$ StrV "\n")),
|
("putstrln", Builtin $ BIF (\x -> _putstr $ x +$ StrV "\n")),
|
||||||
|
("itos", Builtin $ BIF (\(IntV i) -> return $ StrV $ show i)),
|
||||||
("getline", Builtin $ BIF _getline)])
|
("getline", Builtin $ BIF _getline)])
|
||||||
|
|
||||||
eval :: AST -> InterpState Value
|
eval :: AST -> InterpState Value
|
||||||
|
|
Loading…
Reference in New Issue