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

restore use of to-path

Browse Source 
svn: r3320
This commit is contained in:
Matthew Flatt 2006-06-11 02:20:42 +00:00
parent 8e65220f3b
commit ff308a39db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/setup/configtab.ss
View File

@ -70,7 +70,7 @@
(with-syntax ([(expr ...) (with-syntax ([(expr ...)
(map (lambda (name val) (map (lambda (name val)
(if (memq (syntax-e name) path-exports) (if (memq (syntax-e name) path-exports)
#`(delay #,val) val)) #`(delay (to-path #,val)) val))
(syntax->list #'(name ...)) (syntax->list #'(name ...))
(syntax->list #'(val ...)))]) (syntax->list #'(val ...)))])
#`(#%plain-module-begin #`(#%plain-module-begin