From 1e002f2e5b1eddb37f9139b16608d1103a0c92a5 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 24 Feb 2008 08:32:22 +0000
Subject: [PATCH] fix #:help-labels

svn: r8781
---
 collects/scheme/cmdline.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/cmdline.ss b/collects/scheme/cmdline.ss
index 9bc9594052..da7ca27a30 100644
--- a/collects/scheme/cmdline.ss
+++ b/collects/scheme/cmdline.ss
@@ -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