diff options
author | dos-reis <gdr@axiomatics.org> | 2007-11-17 14:28:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-11-17 14:28:37 +0000 |
commit | 5a2a946a6650d258ab1f1364bdd77921ef0fb488 (patch) | |
tree | 397d5c7ef72d90f041285fce1e0a789ee8ea7eb3 /src/boot/ast.boot.pamphlet | |
parent | 272d5208e715c32ac3e514e248d2e523e3e0a8fc (diff) | |
download | open-axiom-5a2a946a6650d258ab1f1364bdd77921ef0fb488.tar.gz |
* ast.boot.pamphlet ($bfCamming): Define as global.
Update cached Lisp translation.
* translator.boot.pamphlet (BOOTTOCL): Don't set $bfClamming.
(BOOTCLAMLINES): Likewise.
(BOOTCLAM): Don't set it.
(BOOTTOCLCLINES): Likewise.
(BOOTTOMC): Likewise.
(EVAL_-BOOT_-FILE): Likewise.
(BO): Likewise.
(STEVAL): Likewise.
(STTOMC): Likewise.
(FC): Likewise.
(PSTTOMC): Likewise.
(BOOTLOOP): Likewise.
Update cached Lisp translation.
Diffstat (limited to 'src/boot/ast.boot.pamphlet')
-rw-r--r-- | src/boot/ast.boot.pamphlet | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/boot/ast.boot.pamphlet b/src/boot/ast.boot.pamphlet index 20371331..ab47df8a 100644 --- a/src/boot/ast.boot.pamphlet +++ b/src/boot/ast.boot.pamphlet @@ -123,6 +123,12 @@ module '"boot-ast" import '"includer" )package "BOOTTRAN" + +++ True means that Boot functions should be translated to use +++ hash tables to remember values. By default, functions are +++ translated with the obvious semantics, e.g. no caching. +$bfClamming := false + <<abstract syntax tree>> -- TRUE if we are currently building the syntax tree for an 'is' @@ -1110,6 +1116,8 @@ bfDs n== if n=0 then '"" else CONCAT('"D",bfDs(n-1)) (IN-PACKAGE "BOOTTRAN") +(DEFPARAMETER |$bfClamming| NIL) + (DEFTYPE |String| () 'STRING) (DEFTYPE |Symbol| () 'SYMBOL) |