protect the unsafe! provide

original commit: 7d6748495c1a52f3ba77a22fea589dc3dba49b15
2004-10-30 08:11:49 +00:00 · 2004-10-30 08:11:49 +00:00 · bbbcb15b21
commit bbbcb15b21
parent be202b38d2
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@ -45,7 +45,7 @@
                        [(id   ...) (generate-temporaries unsafe-bindings)])
            (set! unsafe-bindings '())
            #'(begin
-                (provide unsafe)
+                (provide (protect unsafe))
                (define-syntax (unsafe stx)
                  (syntax-case stx ()
                    [(_) (with-syntax ([(id ...) (list (datum->syntax-object