aboutsummaryrefslogtreecommitdiff
path: root/src/interp/functor.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r--src/interp/functor.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index d539cef6..e7db218f 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -486,7 +486,7 @@ setVector5(catNames,locals) ==
if w:= assoc(u,generated)
then RPLACD(w,[uname,:rest w])
else generated:= [[u,uname],:generated]
- [(w:= mkVectorWithDeferral(first u,first rest u);
+ [(w:= mkVectorWithDeferral(first u,second u);
for v in rest u repeat
w:= ["setShellEntry",v,5,w];
w)