aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 30d4a769..38946378 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1331,7 +1331,7 @@ proclaimCapsuleFunction(op,sig) ==
++ Lisp back end compiler for ILAM with `name', formal `args', and `body'.
backendCompileILAM: (%Symbol,%List %Symbol, %Code) -> %Symbol
backendCompileILAM(name,args,body) ==
- args' := NLIST(#args, ["GENSYM"])
+ args' := [gensym() for . in 1..#args]
body' := eqSubst(args',args,body)
property(name,'ILAM) := true
setDynamicBinding(name,["LAMBDA",args',:body'])