*** empty log message ***

original commit: 02a4099c7eb28eb66ffcb72830080d94f56edf5e
tokens
Scott Owens 23 years ago
parent 76c6850b22
commit a237798ba8

@ -6,6 +6,7 @@
(require-for-syntax "private-lex/generate-code.ss")
(require-for-syntax "private-lex/structs.ss")
(require (lib "list.ss")
(lib "readerr.ss" "syntax")
"private-lex/token.ss")
(provide lexer define-lex-abbrev define-lex-abbrevs
make-lex-buf
@ -20,16 +21,14 @@
(let ((match
(push-back lb (- length longest-match-length))))
(if (not longest-match-action)
(raise (make-exn:read
(raise-read-error
(format "lexer: No match found in input starting with: ~a"
(list->string (lex-buffer-from lb)))
(current-continuation-marks)
(lex-buffer-ip lb)
#f
(position-line first-pos)
(position-col first-pos)
(position-offset first-pos)
(- (position-offset end-pos) (position-offset first-pos)))))
(- (position-offset end-pos) (position-offset first-pos))))
(longest-match-action
(lambda ()
first-pos)

Loading…
Cancel
Save