aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r--src/interp/g-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 7a93d95a..2ab9d696 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -64,7 +64,7 @@ flattenVMForm(form,op) == main where
atom form => form
EQ(form.op,op) => [op,:flatten(form.args,op,nil)]
[flattenVMForm(form.op,op),:flattenVMForm(form.args,op)]
- flatten(forms,op,acc) ==
+ flatten(forms,op,accu) ==
forms = nil => accu
x := flattenVMForm(first forms,op)
cons? x and EQ(x.op,op) => flatten(rest forms,op,[:accu,:x.args])