fix #:help-labels

svn: r8781
This commit is contained in:
Eli Barzilay 2008-02-24 08:32:22 +00:00
parent 25a6c70202
commit 1e002f2e5b

View File

@ -68,7 +68,7 @@
x)))
pieces)
(loop (at-next-keyword (cdr lst))
(cons (cons (quote-syntax 'help-labels) pieces)
(cons (list* #'list #`(quote help-labels) pieces)
accum))]
[(#:once-each #:once-any #:multi #:final)
(let ([sublines