From 38dd943bf702dff14abb84666659972da907f66b Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Fri, 8 Oct 1999 14:11:52 +0000
Subject: [PATCH] added primitives for add-finalizer!

---
 scsh/rx/packages.scm | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/scsh/rx/packages.scm b/scsh/rx/packages.scm
index 06a10c3..250d8a9 100644
--- a/scsh/rx/packages.scm
+++ b/scsh/rx/packages.scm
@@ -199,11 +199,15 @@
 	char-set-package
 	error-package
 	ascii
+	primitives              ; JMG add-finalizer!
+	define-record-types     ; JMG debugging
 	string-lib		; string-fold
 	scheme)
   (files re-low re simp re-high
 	 parse posixstr spencer re-syntax)
-  (optimize auto-integrate)
+;  (optimize flat-environments)     ; JMG: this is absolutly necessary 
+				   ; for the call to the finalizer of cre
+;  (optimize auto-integrate)
   )
 
 
@@ -230,7 +234,8 @@
 	ascii
 	scheme)
   (files rx-lib)
-  (optimize auto-integrate))
+;  (optimize auto-integrate)
+)
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -250,14 +255,16 @@
 	     (if (sre-form? (cadr exp) r c)
 		 (caddr exp)
 		 (cadddr exp)))))
-  (optimize auto-integrate))
+;  (optimize auto-integrate)
+)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-structure re-old-funs re-old-funs-interface
   (open re-level-0 error-package receiving scheme)
   (files oldfuns)
-  (optimize auto-integrate))
+;  (optimize auto-integrate)
+)
 
 
 
@@ -269,13 +276,15 @@
 	string-lib	; string-copy!
 	scheme)
   (files re-subst)
-  (optimize auto-integrate))
+;  (optimize auto-integrate)
+)
 
 
 (define-structure re-folders re-folders-interface
   (open re-level-0 let-opt conditionals error-package scheme)
   (files re-fold)
-  (optimize auto-integrate))
+;  (optimize auto-integrate)
+)
 
 
 (define-interface re-exports-interface
@@ -286,7 +295,8 @@
 
 (define-structure re-exports re-exports-interface
   (open rx-syntax re-level-0 re-subst re-folders)
-  (optimize auto-integrate))
+;  (optimize auto-integrate)
+)
 
 
 ;;; File	Exports