[feat] unwind-protect now works. Tracked down the last bad reference.
This commit is contained in:
parent
d26c572ba2
commit
bf7068d0ad
|
@ -389,7 +389,7 @@ definitial "apply", new Primitive "apply", (values, env, kont) ->
|
||||||
|
|
||||||
definitial "funcall", new Primitive "funcall", (args, env, kont) ->
|
definitial "funcall", new Primitive "funcall", (args, env, kont) ->
|
||||||
if not nilp cdr args
|
if not nilp cdr args
|
||||||
@kont.invoke (car args), (cdr args)
|
kont.invoke (env.lookup (car args)), (cdr args)
|
||||||
else
|
else
|
||||||
throw new LispInterpreterError "Invoke requires a function name and arguments"
|
throw new LispInterpreterError "Invoke requires a function name and arguments"
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue