diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-29 15:15:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-29 15:15:11 +0000 |
| commit | d983797f2d41c45fcf0679c7f4d1f90c1702ed2f (patch) | |
| tree | 8f9dde1bbdcef19fc0065b61d04f5cad920b39b9 /src | |
| parent | acdae7bab43c4dca4ff03be1467b2fc86e7bbe1a (diff) | |
| download | open-axiom-d983797f2d41c45fcf0679c7f4d1f90c1702ed2f.tar.gz | |
Fix typo
Diffstat (limited to 'src')
| -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]) |