conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* libguardians librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-04-30 00:33:22 -04:00
parent c3839a721d
commit f4b0668ebb
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

9
src/libguardians.ss
View File

@ -2,8 +2,10 @@
;;; The procedure make-guardian is coped en verbatim ;;; The procedure make-guardian is coped en verbatim
;;; from Dybvig et al. Guardians paper. ;;; from Dybvig et al. Guardians paper.
(let () (library (ikarus guardians)
(define make-guardian (export)
(import (scheme))
(primitive-set! 'make-guardian
(lambda () (lambda ()
(let ([tc (let ([tc
(let ([x (cons #f #f)]) (let ([x (cons #f #f)])
@ -19,5 +21,4 @@
y)))] y)))]
[(obj) [(obj)
(foreign-call "ikrt_register_guardian" tc obj) (foreign-call "ikrt_register_guardian" tc obj)
(void)])))) (void)])))))
(primitive-set! 'make-guardian make-guardian))

4
src/makefile.ss
View File

@ -235,8 +235,8 @@
["librecord.ss" "librecord.fasl" p0 onepass] ["librecord.ss" "librecord.fasl" p0 onepass]
["libcxr.ss" "libcxr.fasl" p0 onepass] ["libcxr.ss" "libcxr.fasl" p0 onepass]
["libnumerics.ss" "libnumerics.fasl" p0 onepass] ["libnumerics.ss" "libnumerics.fasl" p0 onepass]
["libguardians.ss" "libguardians.fasl" p0 onepass] ["libguardians.ss" "libguardians.fasl" p0 onepass]
["libcore.ss" "libcore.fasl" p0 onepass] ["libcore.ss" "libcore.fasl" p0 onepass]
["libchezio.ss" "libchezio.fasl" p0 onepass] ["libchezio.ss" "libchezio.fasl" p0 onepass]
["libhash.ss" "libhash.fasl" p0 onepass] ["libhash.ss" "libhash.fasl" p0 onepass]
["libwriter.ss" "libwriter.fasl" p0 onepass] ["libwriter.ss" "libwriter.fasl" p0 onepass]