Commented invoke() usage.
This commit is contained in:
parent
74579b9fa0
commit
c0bcc268a0
|
@ -175,7 +175,13 @@ evaluate = (e, env) ->
|
||||||
when "begin" then eprogn (cdr exp), env
|
when "begin" then eprogn (cdr exp), env
|
||||||
when "set!" then update (nvalu cadr exp), env, (evaluate (caddr 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
|
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
|
else
|
||||||
invoke (evaluate (car exp), env), (evlis (cdr exp), env)
|
invoke (evaluate (car exp), env), (evlis (cdr exp), env)
|
||||||
else
|
else
|
||||||
|
|
Loading…
Reference in New Issue