Commented invoke() usage.

This commit is contained in:
Elf M. Sternberg 2015-06-01 10:08:17 -07:00
parent 74579b9fa0
commit c0bcc268a0
1 changed files with 7 additions and 1 deletions

View File

@ -175,7 +175,13 @@ evaluate = (e, env) ->
when "begin" then eprogn (cdr exp), env
when "set!" then update (nvalu cadr exp), env, (evaluate (caddr exp), env)
when "lambda" then make_function (astSymbolsToLispSymbols cadr exp), (cddr exp), env
else invoke (evaluate (car exp), env), (evlis (cdr exp), env)
else
# Note that invoke ultimately resolves to a (native)
# function generated by make_function, and a (interpreter)
# list that the generated (native) function knows how to
# unpack into the actual (native) operation.
invoke (evaluate (car exp), env), (evlis (cdr exp), env)
else
invoke (evaluate (car exp), env), (evlis (cdr exp), env)
else