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

make scheme/load work better in DrScheme

Browse Source 
svn: r9295
This commit is contained in:
Matthew Flatt 2008-04-14 15:54:20 +00:00
parent febe8ce783
commit d94b97b835
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/scheme/load.ss
View File

@ -1,16 +1,24 @@
#lang scheme
(provide (rename-out [module-begin #%module-begin]))
(provide (rename-out [module-begin #%module-begin]
[top-interaction #%top-interaction]))
(define-syntax-rule (module-begin form ...)
(#%plain-module-begin (strip-context-and-eval (quote-syntax form)) ...))
(#%plain-module-begin (top-interaction . form) ...))
(define-syntax-rule (top-interaction . form)
(strip-context-and-eval (quote-syntax form)))
(namespace-require 'scheme)
(define-namespace-anchor a)
(define namespace (namespace-anchor->empty-namespace a))
(parameterize ([current-namespace namespace])
(namespace-require 'scheme))
(define (strip-context-and-eval e)
(eval-syntax (namespace-syntax-introduce
(strip-context e))))
(parameterize ([current-namespace namespace])
(eval-syntax (namespace-syntax-introduce
(strip-context e)))))
(define (strip-context e)
(cond