From 489cfd14dccfcaf7b0ebd41e9d0f8e081a9d1d9f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 25 Sep 2009 20:48:45 +0000
Subject: 	* boot/ast.boot (bfMember): Improve a bit. 	*
 boot/tokens.boot: Don't rename 'is' and 'inst'. 	* boot/parser.boot:
 Use 'in' instead of 'MEMQ' where approrpriate. 	* interp/: Likewise.

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

(limited to 'src/interp/g-error.boot')

diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot
index f0774be7..3b5c67d6 100644
--- a/src/interp/g-error.boot
+++ b/src/interp/g-error.boot
@@ -95,7 +95,7 @@ errorSupervisor1(errorType,errorMsg,$BreakMode) ==
       '"Error with unknown classification"
   msg :=
     errorMsg is ['mathprint, :.] => errorMsg
-    not PAIRP errorMsg => ['"   ", errorMsg]
+    atom errorMsg => ['"   ", errorMsg]
     needsToSplitMessage errorMsg => rest [:['%l,'"   ",u] for u in errorMsg]
     ['"   ",:errorMsg]
   sayErrorly(errorLabel, msg)
-- 
cgit v1.2.3