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

fixed a bug in the last commit

Browse Source 
svn: r11893
This commit is contained in:
Robby Findler 2008-09-28 04:12:23 +00:00
parent eadcced90d
commit a2314a8f0e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/profj/tool.ss
View File

@ -22,9 +22,10 @@
(syntax-case stx () (syntax-case stx ()
[(_ fn id ...) [(_ fn id ...)
#'(begin #'(begin
(define-runtime-path the-file fn)
(define (id . x) (define (id . x)
(let ([orig-fn (parameterize ([current-namespace drs-ns]) (let ([orig-fn (parameterize ([current-namespace drs-ns])
(dynamic-require fn 'id))]) (dynamic-require the-file 'id))])
(apply orig-fn x))) (apply orig-fn x)))
...)])) ...)]))