add provide+safe to `sugar/test`

pull/3/head
Matthew Butterick 10 years ago
parent 152381bed4
commit a1e7cae8df

@ -19,4 +19,5 @@
(r+p "list.rkt") (r+p "list.rkt")
(r+p "misc.rkt") (r+p "misc.rkt")
(r+p "string.rkt") (r+p "string.rkt")
(r+p "test.rkt")
(r+p "xml.rkt") (r+p "xml.rkt")

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require (for-syntax racket/base)) (require (for-syntax racket/base))
(provide (all-defined-out)) (require sugar/define)
(provide+safe module-test-external module-test-internal module-test-internal+external)
;; tests using module-boundary contracts ;; tests using module-boundary contracts
(define-syntax (module-test-external stx) (define-syntax (module-test-external stx)

Loading…
Cancel
Save