diff --git a/src/kiss/KissInterp2.kiss b/src/kiss/KissInterp2.kiss index 2b62d19..07e2104 100644 --- a/src/kiss/KissInterp2.kiss +++ b/src/kiss/KissInterp2.kiss @@ -69,7 +69,7 @@ (if hasOpt null (throw "not enough arguments! need $argName"))))) - (evalCC (ReaderExpDef.CallExp (object pos null def (ReaderExpDef.Symbol "begin")) bodyExps) + (evalCC (callSymbol "begin" bodyExps) ->v { (set localScopes currentLocals) @@ -114,7 +114,7 @@ (dictSet scope vName val) (nextVar) })) - (evalCC (ReaderExpDef.CallExp (makeExp (Symbol "begin")) body) ->result { + (evalCC (callSymbol "begin" body) ->result { (localScopes.pop) (cc result) })))