From 5a2a946a6650d258ab1f1364bdd77921ef0fb488 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 17 Nov 2007 14:28:37 +0000
Subject: 	* 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.

---
 src/boot/ast.boot.pamphlet | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/boot/ast.boot.pamphlet')

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)
-- 
cgit v1.2.3