From 2a44af7ae10c039f26cea6767df41d73a3d795a0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 6 Aug 2011 19:01:28 +0000
Subject: cleanup

---
 src/boot/translator.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index e9d720a2..0aec8e92 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -421,7 +421,7 @@ exportNames ns ==
   [inAllContexts ["EXPORT",quote ns]]
 
 translateToplevel(b,export?) ==
-  atom b => [b]  -- generally happens in interactive mode.
+  b isnt [.,:.] => [b]  -- generally happens in interactive mode.
   b is ["TUPLE",:xs] => coreError '"invalid AST"
   case b of
     %Signature(op,t) => [genDeclaration(op,t)]
@@ -560,7 +560,7 @@ defuse(e,x)==
      tableValue($bootUsed,i) := [nee,:tableValue($bootUsed,i)]
  
 defuse1(e,y)==
-  atom y =>
+  y isnt [.,:.] =>
       symbol? y =>
 	 $used:=
 	      symbolMember?(y,e)=>$used
@@ -587,7 +587,7 @@ defSeparate x==
 
 unfluidlist x==
   x = nil => []
-  atom x => [x]
+  x isnt [.,:.] => [x]
   x is ["&REST",y]=> [y]
   [first x,:unfluidlist rest x]
  
@@ -650,7 +650,7 @@ shoeItem (str)==
   [[[first line for line in  shoeDQlines dq]],:rest str]
  
 stripm (x,pk,bt)==
-  atom x =>
+  x isnt [.,:.] =>
     symbol? x =>
       symbolScope x = bt => makeSymbol(symbolName x,pk)
       x
-- 
cgit v1.2.3