aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 1e2d5ff8..5299fc74 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -136,6 +136,8 @@ changeVariableDefinitionToStore(form,vars) ==
vars
form is ['%loop,:iters,body,val] =>
changeLoopVarDefsToStore(iters,body,val,vars)
+ if form is ['%seq,:.] then
+ form.args := spliceSeqArgs form.args
for x in form repeat
vars := changeVariableDefinitionToStore(x,vars)
vars