provide read in reader too; avoid dynamic-require error

countvajhula · Jun 23, 2021 · fff6b73 · fff6b73
1 parent 5da9a0c
commit fff6b73
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git 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
@@ -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