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
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