From f621855aa3a2133db99c0a339bf7643e523210f7 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sun, 16 Sep 2012 16:48:36 -0400 Subject: [PATCH] racket/unit lang uses racket/base and racket/unit Probably fixes PR 13118 --- collects/racket/unit/lang.rkt | 10 +++++----- collects/scheme/unit/lang.rkt | 6 ++++++ collects/scheme/unit/lang/reader.rkt | 2 +- 3 files changed, 12 insertions(+), 6 deletions(-) create mode 100644 collects/scheme/unit/lang.rkt 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