From 7547324037fc4ed4a78148fe318312c57d5e1d09 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 11 Jul 2019 18:42:03 -0600
Subject: [PATCH] omit srcloc

---
 beautiful-racket-demo/algebra-demo/main.rkt | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/beautiful-racket-demo/algebra-demo/main.rkt b/beautiful-racket-demo/algebra-demo/main.rkt
index f17f71c..e460eb2 100644
--- a/beautiful-racket-demo/algebra-demo/main.rkt
+++ b/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])