diff options
author | dos-reis <gdr@axiomatics.org> | 2009-08-28 17:29:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-08-28 17:29:17 +0000 |
commit | d2aa4652224e0dd476e9bbe53cea718ec3d89506 (patch) | |
tree | ce39cad3dc5ed02ac0e83a4680c02022dc6b5666 /src/algebra/strap/SYMBOL.lsp | |
parent | 5c7fc79609933c1fbfcd629d9df0ce72563bd573 (diff) | |
download | open-axiom-d2aa4652224e0dd476e9bbe53cea718ec3d89506.tar.gz |
* boot/ast.boot (bfCase): Don't introduce temporary for scrutinee
when it is already reduced.
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
-rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 3a333e20..56936104 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -209,7 +209,7 @@ (SPADCALL |x| (|getShellEntry| $ 81))) (DEFUN |SYMBOL;syprefix| (|sc| $) - (PROG (|ns| #0=#:G1549 |n| #1=#:G1550) + (PROG (|ns| #0=#:G1547 |n| #1=#:G1548) (RETURN (SEQ (LETT |ns| (LIST (LENGTH (QVELT |sc| 3)) (LENGTH (QVELT |sc| 2)) @@ -438,7 +438,7 @@ (EXIT |s|))))) (DEFUN |SYMBOL;anyRadix| (|n| |s| $) - (PROG (|qr| |ns| #0=#:G1505) + (PROG (|qr| |ns| #0=#:G1503) (RETURN (SEQ (EXIT (SEQ (LETT |ns| "" |SYMBOL;anyRadix|) (EXIT (SEQ G190 NIL @@ -530,7 +530,7 @@ (|SYMBOL;scripts;$R;32| |x| $) $)))))) (DEFUN |SYMBOL;resetNew;V;29| ($) - (PROG (|k| #0=#:G1551) + (PROG (|k| #0=#:G1549) (RETURN (SEQ (SPADCALL (|getShellEntry| $ 10) 0 (|getShellEntry| $ 123)) (SEQ (LETT |k| NIL |SYMBOL;resetNew;V;29|) @@ -554,7 +554,7 @@ (DEFUN |SYMBOL;scripted?;$B;30| (|sy| $) (NOT (ATOM |sy|))) (DEFUN |SYMBOL;name;2$;31| (|sy| $) - (PROG (|str| |i| #0=#:G1552 #1=#:G1532 #2=#:G1530) + (PROG (|str| |i| #0=#:G1550 #1=#:G1530 #2=#:G1528) (RETURN (SEQ (EXIT (COND ((NOT (|SYMBOL;scripted?;$B;30| |sy| $)) |sy|) @@ -607,8 +607,8 @@ #1# (EXIT #1#))))) (DEFUN |SYMBOL;scripts;$R;32| (|sy| $) - (PROG (|lscripts| |str| |nstr| |j| #0=#:G1535 |nscripts| |m| |n| - #1=#:G1553 |i| #2=#:G1554 |a| #3=#:G1555 |allscripts|) + (PROG (|lscripts| |str| |nstr| |j| #0=#:G1533 |nscripts| |m| |n| + #1=#:G1551 |i| #2=#:G1552 |a| #3=#:G1553 |allscripts|) (RETURN (SEQ (COND ((NOT (|SYMBOL;scripted?;$B;30| |sy| $)) @@ -750,7 +750,7 @@ (DEFUN |Symbol| () (PROG () (RETURN - (PROG (#0=#:G1557) + (PROG (#0=#:G1555) (RETURN (COND ((LETT #0# (HGET |$ConstructorCache| '|Symbol|) |Symbol|) |