From 98ce34dd77fa92d5869c1f538016bcfb319cfdec Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 8 Sep 2009 00:11:02 +0000
Subject: [PATCH] fix chaining-language reader bug

svn: r15908
---
 collects/syntax/module-reader.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/syntax/module-reader.ss b/collects/syntax/module-reader.ss
index 0747b56fe8..30fd733a14 100644
--- a/collects/syntax/module-reader.ss
+++ b/collects/syntax/module-reader.ss
@@ -179,7 +179,7 @@
                                          (lambda (in)
                                            (let ([spec (regexp-try-match #px"^[ \t]+(.*?)(?=\\s|$)" in)])
                                              (and spec
-                                                  (let ([s (car spec)])
+                                                  (let ([s (cadr spec)])
                                                     (if (equal? s "")
                                                         #f
                                                         s)))))])
@@ -198,7 +198,7 @@
             (if parsed-spec
                 (begin ((current-reader-guard) parsed-spec)
                        (dynamic-require parsed-spec export-sym (mk-fail-thunk spec)))
-                (bad (cadr spec) #f)))))
+                (bad spec #f)))))
 
     (define (-get-info inp mod line col pos)
       (let ([r (get inp 'get-info (object-name inp) line col pos