diff --git a/collects/racket/unit/lang.rkt b/collects/racket/unit/lang.rkt index fd64d43c25..c17222669c 100644 --- a/collects/racket/unit/lang.rkt +++ b/collects/racket/unit/lang.rkt @@ -1,12 +1,12 @@ -#lang scheme/base +#lang racket/base -(require scheme/unit - (for-syntax scheme/base +(require racket/unit + (for-syntax racket/base syntax/kerncase)) (provide (rename-out [module-begin #%module-begin]) - (except-out (all-from-out scheme/base) #%module-begin) - (all-from-out scheme/unit)) + (except-out (all-from-out racket/base) #%module-begin) + (all-from-out racket/unit)) (define-for-syntax (make-name s) (string->symbol diff --git a/collects/scheme/unit/lang.rkt b/collects/scheme/unit/lang.rkt new file mode 100644 index 0000000000..2a4a41125a --- /dev/null +++ b/collects/scheme/unit/lang.rkt @@ -0,0 +1,6 @@ +#lang scheme/base +(require scheme/unit + (only-in racket/unit/lang [#%module-begin unit-module-begin])) +(provide (except-out (all-from-out scheme/base) #%module-begin) + (rename-out [unit-module-begin #%module-begin]) + (all-from-out scheme/unit)) diff --git a/collects/scheme/unit/lang/reader.rkt b/collects/scheme/unit/lang/reader.rkt index 9d47cb1147..2d0a549281 100644 --- a/collects/scheme/unit/lang/reader.rkt +++ b/collects/scheme/unit/lang/reader.rkt @@ -1,2 +1,2 @@ #lang s-exp syntax/module-reader -racket/unit/lang +scheme/unit/lang