add `lexer-file-path`

pull/21/head
Matthew Butterick 6 years ago
parent 0a0d5831a7
commit 37bc753b27

@ -30,6 +30,7 @@
(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])

@ -41,6 +41,7 @@
(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