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

.

Browse Source 
original commit: 1e1ae1a7fe7c465da9c9659a0b41027596422c16
This commit is contained in:
Eli Barzilay 2005-04-17 09:03:12 +00:00
parent d462a25bd1
commit bfb0ac0ae6
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/mzlib/etc.ss
View File

@ -471,7 +471,7 @@
(syntax-case stx () (syntax-case stx ()
[(_) [(_)
(let* ([f (syntax-source stx)] (let* ([f (syntax-source stx)]
[f (and f (string? f) (file-exists? f) [f (and f (or (path? f) (string? f)) (file-exists? f)
(let-values ([(base file dir?) (split-path f)]) file))]) (let-values ([(base file dir?) (split-path f)]) file))])
(datum->syntax-object (quote-syntax here) f stx))])) (datum->syntax-object (quote-syntax here) f stx))]))