add raco read

compiler-lib/compiler/commands/expand.rkt

@@ -1,8 +1,13 @@
 #lang racket/base
+
+(module expand racket/base
   (require racket/cmdline
            raco/command-name
            racket/pretty)
   
+  (provide show-program)
+  
+  (define (show-program expand)
     (define source-files
       (command-line
        #:program (short-program+command-name)
@@ -30,4 +35,8 @@
                  (let ([e (read-syntax src-file in)])
                    (unless (eof-object? e)
                      (pretty-write (syntax->datum (expand e)))
-                 (loop))))))))))
+                     (loop))))))))))))
+
+(require (submod "." expand))
+(show-program expand)
+  

compiler-lib/compiler/commands/info.rkt

@@ -8,6 +8,7 @@
     ("decompile" compiler/commands/decompile "decompile bytecode" #f)
     ("test" compiler/commands/test "run tests associated with files/directories" 15)
     ("expand" compiler/commands/expand "macro-expand source" #f)
+    ("read" compiler/commands/read "read and pretty-print source" #f)
     ("distribute" compiler/commands/exe-dir "prepare executable(s) in a directory for distribution" #f)
     ("demodularize" compiler/demodularizer/batch "produce a whole program from a single module" #f)))
 

compiler-lib/compiler/commands/read.rkt

@@ -0,0 +1,4 @@
+#lang racket/base
+(require (submod "expand.rkt" expand))
+
+(show-program (lambda (e) e))

compiler-lib/info.rkt

@@ -13,4 +13,4 @@
 
 (define pkg-authors '(mflatt))
 
-(define version "1.2")
+(define version "1.3")