*** empty log message ***

original commit: 120ea5d3ef06fb68c1edf96f1c1c4d0a0c52f8e8
tokens
Scott Owens 20 years ago
parent cb57eb49ea
commit d380cff70b

@ -232,8 +232,7 @@
(do-match ip first-pos special-comment-action #f)) (do-match ip first-pos special-comment-action #f))
(else (lexer ip)))) (else (lexer ip))))
((not (char? first-char)) ((not (char? first-char))
(let ((spec (read-char-or-special ip))) (do-match ip first-pos special-action (read-char-or-special ip)))
(do-match ip first-pos special-action (read-char-or-special ip))))
(else (else
(let lexer-loop ( (let lexer-loop (
;; current-state ;; current-state

Loading…
Cancel
Save