aboutsummaryrefslogtreecommitdiff
path: root/go/src/step5_tco
diff options
context:
space:
mode:
Diffstat (limited to 'go/src/step5_tco')
-rw-r--r--go/src/step5_tco/step5_tco.go4
1 files changed, 3 insertions, 1 deletions
diff --git a/go/src/step5_tco/step5_tco.go b/go/src/step5_tco/step5_tco.go
index 0c07316..ad4b5e2 100644
--- a/go/src/step5_tco/step5_tco.go
+++ b/go/src/step5_tco/step5_tco.go
@@ -123,7 +123,9 @@ func EVAL(ast MalType, env EnvType) (MalType, error) {
ast = a2
}
case "fn*":
- fn := MalFunc{EVAL, a2, env, a1}
+ fn := MalFunc{EVAL, a2, env, a1, false,
+ func(outer EnvType, binds []MalType, exprs []MalType) (EnvType, error) {
+ return NewEnv(outer, binds, exprs) }}
return fn, nil
default:
el, e := eval_ast(ast, env)