From 02e74a1411f418383f54b0eb857fe9e782bfefee Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 12 Sep 2003 20:50:55 +0000 Subject: [PATCH] . original commit: be7211e9f9f82361e3373e6ef8046e1f927d358a --- collects/mzlib/include.ss | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/include.ss b/collects/mzlib/include.ss index da36631..70414a5 100644 --- a/collects/mzlib/include.ss +++ b/collects/mzlib/include.ss @@ -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)