diff options
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 2 |
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]) |