From d68adc46e463a7d2cc0dceb1e58a0da06767ba22 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 3 Jun 2012 09:29:56 +0000
Subject: 	* boot/parser.boot (bpSignatureTail): Split out of
 bpSignature. 	(bpTyped): Use it. 	(bpThrow): Lilkewise. 
 (bpRegularBVItemTail): Likewise. 	(bpAssignLHS): Likewise. 
 (bpStoreName): Do not reference $typings. 	* boot/ast.boot (%Ast): Remove
 %Pretend variant. 	(bfSignature): Rename from bfLocal.  Build %Signature
 variant. 	(bfLET1): Handle assignment to typed variable. 
 (shoeCompTran): Do not reference $typings. 	(shoeCompTran1): Do not
 translate assignment to typed variables. 	(bindFluidVars): Handle them
 here. 	(bfTagged): Remove. 	(bfTry): Tidy. 	* boot/translator.boot
 (shoeOutParse): Do not reference $typings 	and $returns. 	*
 interp/c-util.boot (isAlmostSimple): Initialize $assignmentList.

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

(limited to 'src/interp')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 0638fd91..b1d09f25 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -865,7 +865,7 @@ isSideEffectFree op ==
  
 isAlmostSimple x ==
   --returns (<new predicate> . <list of assignments>) or nil
-  $assignmentList: local --$assigmentList is only used in this function
+  $assignmentList: local := nil --$assigmentList is only used in this function
   transform:=
     fn x where
       fn x ==
-- 
cgit v1.2.3