suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/unit lang uses racket/base and racket/unit

Browse Source 
Probably fixes PR 13118
This commit is contained in:
Ryan Culpepper 2012-09-16 16:48:36 -04:00
parent d70e80e837
commit f621855aa3
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/racket/unit/lang.rkt
View File

@ -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

6
collects/scheme/unit/lang.rkt Normal file
View File

@ -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))

2
collects/scheme/unit/lang/reader.rkt
View File

@ -1,2 +1,2 @@
#lang s-exp syntax/module-reader
racket/unit/lang
scheme/unit/lang