From 02a4d9a50ec4e459262bb3e3f52ba7d4990f28bc Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 20 Jun 2019 10:17:18 -0700
Subject: [PATCH] touchup

---
 beautiful-racket-demo/taco-decompiler-demo/main.rkt | 4 ++--
 beautiful-racket-demo/taco-decompiler-demo/run.rkt  | 4 ++--
 beautiful-racket-demo/tacopocalypse-demo/main.rkt   | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/beautiful-racket-demo/taco-decompiler-demo/main.rkt b/beautiful-racket-demo/taco-decompiler-demo/main.rkt
index 10f579e..a42d9c3 100644
--- a/beautiful-racket-demo/taco-decompiler-demo/main.rkt
+++ b/beautiful-racket-demo/taco-decompiler-demo/main.rkt
@@ -7,7 +7,7 @@
   (for/list ([tok (in-port read ip)])
     tok))
 
-(define (parse toks)
+(define (parse src toks)
   (for/list ([tok (in-list toks)])
     (integer->char
      (for/sum ([val (in-list tok)]
@@ -17,7 +17,7 @@
 
 (define (read-syntax src ip)
   (define toks (tokenize ip))
-  (define parse-tree (parse toks))
+  (define parse-tree (parse src toks))
   (strip-context
    (with-syntax ([PT parse-tree])
      #'(module untaco racket
diff --git a/beautiful-racket-demo/taco-decompiler-demo/run.rkt b/beautiful-racket-demo/taco-decompiler-demo/run.rkt
index c2e30e3..7e56fae 100644
--- a/beautiful-racket-demo/taco-decompiler-demo/run.rkt
+++ b/beautiful-racket-demo/taco-decompiler-demo/run.rkt
@@ -7,7 +7,7 @@
   (for/list ([tok (in-port read ip)])
             tok))
 
-(define (parse toks)
+(define (parse src toks)
   (for/list ([tok (in-list toks)])
             (integer->char
              (for/sum ([val (in-list tok)]
@@ -17,7 +17,7 @@
 
 (define (read-syntax src ip)
   (define toks (tokenize ip))
-  (define parse-tree (parse toks))
+  (define parse-tree (parse src toks))
   (define src-string (list->string parse-tree))
   (define racket-toks
     (for/list ([tok (in-port read (open-input-string src-string))])
diff --git a/beautiful-racket-demo/tacopocalypse-demo/main.rkt b/beautiful-racket-demo/tacopocalypse-demo/main.rkt
index 28cda33..784b835 100644
--- a/beautiful-racket-demo/tacopocalypse-demo/main.rkt
+++ b/beautiful-racket-demo/tacopocalypse-demo/main.rkt
@@ -17,7 +17,7 @@
   (for/list ([tok (in-slice 7 toklets)])
     tok))
 
-(define (parse toks)
+(define (parse src toks)
   (for/list ([tok (in-list toks)])
     (integer->char
      (for/sum ([val (in-list tok)]
@@ -27,7 +27,7 @@
 
 (define (read-syntax src ip)
   (define toks (tokenize ip))
-  (define parse-tree (parse toks))
+  (define parse-tree (parse src toks))
   (strip-context
    (with-syntax ([PT parse-tree])
      #'(module untaco racket