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

drs bug and test-suite fixes

Browse Source 
svn: r9709

original commit: 860c41d7492a33880f9c18839c21a601d675e5b8
This commit is contained in:
Matthew Flatt 2008-05-06 23:27:23 +00:00
parent dbebbf5676
commit 03c5513665
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/private/old-procs.ss
View File

@ -28,8 +28,9 @@
(let ([new (make-empty-namespace)] (let ([new (make-empty-namespace)]
[old (variable-reference->empty-namespace (#%variable-reference reflect-var))]) [old (variable-reference->empty-namespace (#%variable-reference reflect-var))])
(namespace-attach-module old 'mzscheme new) (namespace-attach-module old 'mzscheme new)
(unless (eq? flag 'empty)
(parameterize ([current-namespace new]) (parameterize ([current-namespace new])
(namespace-require/copy 'mzscheme)) (namespace-require/copy 'mzscheme)))
new)])) new)]))
(define (free-identifier=?* a b) (define (free-identifier=?* a b)