* libguardians librarified

2007-04-30 00:33:22 -04:00 · 2007-04-30 00:33:22 -04:00 · f4b0668ebb
parent c3839a721d
commit f4b0668ebb
3 changed files with 7 additions and 6 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libguardians.ss
+++ b/src/libguardians.ss
@ -2,8 +2,10 @@
 ;;; The procedure make-guardian is coped en verbatim 
 ;;; from Dybvig et al. Guardians paper.

-(let ()
-  (define make-guardian
+(library (ikarus guardians)
+  (export)
+  (import (scheme))
+  (primitive-set! 'make-guardian 
    (lambda ()
      (let ([tc
             (let ([x (cons #f #f)])
@ -19,5 +21,4 @@
                    y)))]
          [(obj) 
           (foreign-call "ikrt_register_guardian" tc obj)
-           (void)]))))
-  (primitive-set! 'make-guardian make-guardian))
+           (void)])))))