suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

missed some changes related to addition of dont-care values

Browse Source 
in the lexers

original commit: 3e27388571292f1db95c558dd4a9bb1f944d395f
This commit is contained in:
Robby Findler 2013-03-10 21:56:02 -05:00
parent 7c59dcd240
commit 3dd977cf2f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/private/manual-code.rkt
View File

@ -1,6 +1,7 @@
#lang racket/base #lang racket/base
(require syntax/strip-context (require syntax/strip-context
syntax-color/module-lexer syntax-color/module-lexer
syntax-color/lexer-contract
"../racket.rkt" "../racket.rkt"
"../base.rkt" "../base.rkt"
"manual-scheme.rkt" "manual-scheme.rkt"
@ -71,7 +72,9 @@
(if (eof-object? lexeme) (if (eof-object? lexeme)
null null
(cons (list type (sub1 start) (sub1 end) 0) (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]) [e (parameterize ([read-accept-reader #t])
((or expand ((or expand
(lambda (stx) (lambda (stx)