From 9a593e3b395c1ba0c6036760c12713d7485f8c54 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 4 Aug 2011 13:56:52 +0000
Subject: cleanup

---
 src/boot/ast.boot | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

(limited to 'src/boot/ast.boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index 3cc190ae..670ad2da 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -856,7 +856,7 @@ bfDef1 [op,args,body] ==
   argl :=
     bfTupleP args => rest args
     [args]
-  [quotes,control,arglp,body]:=bfInsertLet (argl,body)
+  [quotes,control,arglp,body] := bfInsertLet (argl,body)
   quotes => shoeLAM(op,arglp,control,body)
   [[op,["LAMBDA",arglp,body]]]
  
@@ -955,16 +955,13 @@ shoePROG(v,b)==
   [["PROG",v,:blist,["RETURN", blast]]]
 
 shoeFluids x==
-  x = nil => nil
-  symbol? x and bfBeginsDollar x => [x]
-  atom x => nil
-  x is ["QUOTE",:.] => nil
+  ident? x and bfBeginsDollar x => [x]
+  atomic? x => nil
   [:shoeFluids first x,:shoeFluids rest x]
 
 shoeATOMs x ==
-  x = nil => nil
-  symbol? x => [x]
-  atom x => nil
+  ident? x => [x]
+  atomic? x => nil
   [:shoeATOMs first x,:shoeATOMs rest x]
 
 ++ Return true if `x' is an identifier name that designates a
-- 
cgit v1.2.3