bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 3dd977cf2f5f83be6b607dd549ea6c71d1887057
parent 7c59dcd2406c6deec291dccb6dede28384ee318a
Author: Robby Findler <robby@racket-lang.org>
Date:   Sun, 10 Mar 2013 21:56:02 -0500

missed some changes related to addition of dont-care values
in the lexers

original commit: 3e27388571292f1db95c558dd4a9bb1f944d395f

Diffstat:
M
collects/scribble/private/manual-code.rkt
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/private/manual-code.rkt b/collects/scribble/private/manual-code.rkt
@@ -1,6 +1,7 @@
 #lang racket/base
 (require syntax/strip-context
          syntax-color/module-lexer
+         syntax-color/lexer-contract
          "../racket.rkt"
          "../base.rkt"
          "manual-scheme.rkt"
@@ -71,7 +72,9 @@
                 (if (eof-object? lexeme)
                     null
                     (cons (list type (sub1 start) (sub1 end) 0)
-                          (loop mode)))))]
+                          (loop (if (dont-stop? mode)
+                                    (dont-stop-val mode)
+                                    mode))))))]
            [e (parameterize ([read-accept-reader #t])
                 ((or expand 
                      (lambda (stx)