omit srcloc

beautiful-racket-demo/algebra-demo/main.rkt

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