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

.

Browse Source 
original commit: be7211e9f9f82361e3373e6ef8046e1f927d358a
This commit is contained in:
Matthew Flatt 2003-09-12 20:50:55 +00:00
parent c88f87161c
commit 02e74a1411
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/include.ss
View File

@ -104,7 +104,7 @@
(define (check-fn-form fn stx)
;; Check form of fn:
(syntax-case* fn (build-path) module-or-top-identifier=?
(syntax-case* fn (build-path lib) module-or-top-identifier=?
[fn
(string? (syntax-e (syntax fn)))
'ok]
@ -118,6 +118,12 @@
(module-identifier=? e (quote-syntax same))))))
(syntax->list (syntax (elem1 elem ...))))
'ok]
[(lib filename ...)
(andmap
(lambda (e)
(string? (syntax-e e)))
(syntax->list (syntax (filename ...))))
'ok]
[_else (raise-syntax-error #f "bad syntax" stx fn)]))
(define (include/proc stx)