From fff6b7307681431aabb87a7077761852abd79b8b Mon Sep 17 00:00:00 2001
From: Siddhartha <sid@countvajhula.com>
Date: Wed, 23 Jun 2021 16:42:11 -0700
Subject: [PATCH] provide read in reader too; avoid dynamic-require error

---
 main.rkt   | 4 ++--
 reader.rkt | 9 +++++++--
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/main.rkt b/main.rkt
index 1053936..3a7aca0 100644
--- a/main.rkt
+++ b/main.rkt
@@ -1,5 +1,5 @@
 #lang racket/base
 
 (module reader racket/base
-  (require "reader.rkt")
-  (provide (all-from-out "reader.rkt")))
+  (require cli/reader)
+  (provide (all-from-out cli/reader)))
diff --git a/reader.rkt b/reader.rkt
index 61f0cf6..3f97e8b 100644
--- a/reader.rkt
+++ b/reader.rkt
@@ -2,9 +2,14 @@
 
 (require (only-in racket/sequence sequence->list))
 
-(provide read-syntax)
+(provide
+ (rename-out [cli-read-syntax read-syntax]
+             [cli-read read]))
 
-(define (read-syntax path port)
+(define (cli-read port)
+  (cli-read-syntax #f port))
+
+(define (cli-read-syntax path port)
   ;; this reads symexes from the source file
   (define src-datums (sequence->list (in-port read port)))
   (define module-datum `(module cli-mod cli/expander