simplify runtime config

beautiful-racket-demo/basic-demo-3/expander.rkt

@@ -11,12 +11,11 @@
        [(REQ-SPEC ...) (find-property 'b-require-spec #'(LINE ...))]
        [((SHELL-ID SHELL-VAL) ...)
         (for/list ([(arg idx) (in-indexed (current-command-line-arguments))])
-          (list (format-id caller-stx "arg~a" idx) arg))]) ; explain why (format-datum 'arg~a idx) won't work
+                  (list (format-id caller-stx "arg~a" idx) arg))]) ; explain why (format-datum 'arg~a idx) won't work
     #'(#%module-begin
        (module configure-runtime br
          (require "runtime.rkt")
-         (current-basic-port (current-output-port))
+         (configure-this!))
-         (configure-repl!))
        (require REQ-SPEC) ...
        (define VAR-ID 0) ...
        (provide VAR-ID ...)
@@ -24,8 +23,7 @@
        LINE ...
        (define line-table
          (apply hasheqv (append (list NUM LINE-FUNC) ...)))
-       (parameterize ([current-output-port
+       (parameterize ([current-output-port (basic-output-port)])
-                       (or (current-basic-port) (open-output-nowhere))])
          (void (run line-table))))))
 
 (begin-for-syntax
@@ -34,6 +32,6 @@
     (remove-duplicates
      (for/list ([stx (in-list (stx-flatten line-stxs))]
                 #:when (syntax-property stx which))
-       stx)
+               stx)
      #:key syntax->datum)))
 

beautiful-racket-demo/basic-demo-3/runtime.rkt

@@ -1,10 +1,12 @@
 #lang br
 (require "parser.rkt" "tokenizer.rkt")
-(provide current-basic-port configure-repl!)
+(provide basic-output-port configure-this!)
 
-(define current-basic-port (make-parameter #f))
+(define basic-output-port (make-parameter (open-output-nowhere)))
+
+(define (configure-this!)
+  (basic-output-port (current-output-port))
   
-(define (configure-repl!)
   (define statement-parser (make-rule-parser b-statement))
   (define (read-one-line path port)
     (define one-line (read-line port))