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

.

Browse Source 
original commit: c3f4849e33ab56d3ad5e7778710da7472bef6cda
This commit is contained in:
Matthew Flatt 2001-02-08 23:28:52 +00:00
parent c9ce0318d7
commit 7e1692324f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/include.ss
View File

@ -5,7 +5,9 @@
(lambda (stx)
;; Parse the file name
(let ([file
(syntax-case stx (build-path)
(syntax-case* stx (build-path) (lambda (a b)
(eq? (syntax-e a)
(syntax-e b)))
[(_ fn)
(string? (syntax-e (syntax fn)))
(syntax-e (syntax fn))]