scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added primitives for add-finalizer!

This commit is contained in:
marting 1999-10-08 14:11:52 +00:00
parent 9d1a3926a4
commit 38dd943bf7
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
scsh/rx/packages.scm
View File

@ -199,11 +199,15 @@
char-set-package char-set-package
error-package error-package
ascii ascii
primitives ; JMG add-finalizer!
define-record-types ; JMG debugging
string-lib ; string-fold string-lib ; string-fold
scheme) scheme)
(files re-low re simp re-high (files re-low re simp re-high
parse posixstr spencer re-syntax) 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 ascii
scheme) scheme)
(files rx-lib) (files rx-lib)
(optimize auto-integrate)) ; (optimize auto-integrate)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -250,14 +255,16 @@
(if (sre-form? (cadr exp) r c) (if (sre-form? (cadr exp) r c)
(caddr exp) (caddr exp)
(cadddr exp))))) (cadddr exp)))))
(optimize auto-integrate)) ; (optimize auto-integrate)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-structure re-old-funs re-old-funs-interface (define-structure re-old-funs re-old-funs-interface
(open re-level-0 error-package receiving scheme) (open re-level-0 error-package receiving scheme)
(files oldfuns) (files oldfuns)
(optimize auto-integrate)) ; (optimize auto-integrate)
)
@ -269,13 +276,15 @@
string-lib ; string-copy! string-lib ; string-copy!
scheme) scheme)
(files re-subst) (files re-subst)
(optimize auto-integrate)) ; (optimize auto-integrate)
)
(define-structure re-folders re-folders-interface (define-structure re-folders re-folders-interface
(open re-level-0 let-opt conditionals error-package scheme) (open re-level-0 let-opt conditionals error-package scheme)
(files re-fold) (files re-fold)
(optimize auto-integrate)) ; (optimize auto-integrate)
)
(define-interface re-exports-interface (define-interface re-exports-interface
@ -286,7 +295,8 @@
(define-structure re-exports re-exports-interface (define-structure re-exports re-exports-interface
(open rx-syntax re-level-0 re-subst re-folders) (open rx-syntax re-level-0 re-subst re-folders)
(optimize auto-integrate)) ; (optimize auto-integrate)
)
;;; File Exports ;;; File Exports