|
|
|
@ -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])
|
|
|
|
|