From dd16b47e4904b1839b2918cf5b38c352979a6141 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 4 Feb 2011 23:34:39 +0000
Subject: 	* interp/g-opt.boot ($VMsideEffectFreeOperators): Remove more
 Lisp 	level operators.  Include %property and %bitveclt. 	*
 interp/lisp-backend.boot: Expand them. 	* algebra/si.spad.pamphlet
 (SingleInteger): Tidy.  Use %ismall?. 	* algebra/domain.spad.pamphlet
 (DomainConstructo): Use %property. 	* algebra/outform.spad.pamphlet
 (OutputForm): Likewise. 	* algebra/boolean.spad.pamphlet (IndexedBits):
 Use %bitveclt.

---
 src/algebra/outform.spad.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/outform.spad.pamphlet')

diff --git a/src/algebra/outform.spad.pamphlet b/src/algebra/outform.spad.pamphlet
index 15f3c259..185d00dd 100644
--- a/src/algebra/outform.spad.pamphlet
+++ b/src/algebra/outform.spad.pamphlet
@@ -622,7 +622,7 @@ OutputForm(): SetCategory with
                 IDENTP$Lisp a => a
                 STRINGP$Lisp a => INTERN$Lisp a
                 return false
-            if GET(e,QUOTE(INFIXOP$Lisp)$Lisp)$Lisp then true else false
+            if %property(e,'INFIXOP)$Foreign(Builtin) then true else false
 
         elt(a, l) ==
             cons(a, l)
-- 
cgit v1.2.3