diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-04 23:34:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-04 23:34:39 +0000 |
| commit | dd16b47e4904b1839b2918cf5b38c352979a6141 (patch) | |
| tree | 11760b4462d02b64729ed30b0d0bb2150d4c59f3 /src/algebra/outform.spad.pamphlet | |
| parent | 03ab6db167d40e2448dee7de702dc77a62e57617 (diff) | |
| download | open-axiom-dd16b47e4904b1839b2918cf5b38c352979a6141.tar.gz | |
* 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.
Diffstat (limited to 'src/algebra/outform.spad.pamphlet')
| -rw-r--r-- | src/algebra/outform.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
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) |