From 2f55b7938c89ddaf1db2176a31628eb859e1ace4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 21 Feb 2001 21:48:53 +0000 Subject: [PATCH] . original commit: 91d76e80b5e3b025179ee4bfd039b65f0e56bf6c --- collects/mzlib/cmdline.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/mzlib/cmdline.ss b/collects/mzlib/cmdline.ss index bbef9b2..63bb3db 100644 --- a/collects/mzlib/cmdline.ss +++ b/collects/mzlib/cmdline.ss @@ -27,11 +27,11 @@ (lambda (l) (map (lambda (a) - (cons (syntax->datum (let ([s (symbol->string (syntax-e a))]) - (if (char=? #\* (string-ref s (sub1 (string-length s)))) - (substring s 0 (sub1 (string-length s))) - s)) - #f (quote-syntax here)))) + (datum->syntax (let ([s (symbol->string (syntax-e a))]) + (if (char=? #\* (string-ref s (sub1 (string-length s)))) + (substring s 0 (sub1 (string-length s))) + s)) + #f (quote-syntax here))) l))]) (let ([clauses (let loop ([csrcs (syntax->list (syntax (clause ...)))][clauses null]) @@ -147,6 +147,7 @@ (let ([formals (let loop ([f (syntax arg-formals)]) (syntax-case f () + [() null] [(arg . rest) (identifier? (syntax arg)) (cons (syntax arg) (loop (syntax rest)))]