omit srcloc

pull/23/head
Matthew Butterick 5 years ago
parent efa9ce3264
commit 7547324037

@ -9,7 +9,7 @@
(:or "fun" "(" ")" "=" "+" ","))
(define tokenize-1
(lexer-srcloc
(lexer
[whitespace (token lexeme #:skip? #t)]
[(from/stop-before "#" "\n") (token 'COMMENT #:skip? #t)]
[reserved-toks lexeme]
@ -29,8 +29,6 @@
(define-macro app #'#%app)
(define (read-syntax src ip)
(port-count-lines! ip)
(lexer-file-path src)
(define parse-tree (parse src (λ () (tokenize-1 ip))))
(strip-bindings
(with-syntax ([PT parse-tree])

Loading…
Cancel
Save