From d983797f2d41c45fcf0679c7f4d1f90c1702ed2f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 29 May 2010 15:15:11 +0000
Subject: Fix typo

---
 src/interp/g-util.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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])
-- 
cgit v1.2.3