From c1e2939aa6a92f984b0d911e661535b645c024e2 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 24 Feb 2017 16:36:00 -0800
Subject: [PATCH] simplify runtime config

---
 beautiful-racket-demo/basic-demo-3/expander.rkt | 10 ++++------
 beautiful-racket-demo/basic-demo-3/runtime.rkt  |  8 +++++---
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/beautiful-racket-demo/basic-demo-3/expander.rkt b/beautiful-racket-demo/basic-demo-3/expander.rkt
index 9ece9e8..ad56702 100644
--- a/beautiful-racket-demo/basic-demo-3/expander.rkt
+++ b/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-repl!))
+         (configure-this!))
        (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
-                       (or (current-basic-port) (open-output-nowhere))])
+       (parameterize ([current-output-port (basic-output-port)])
          (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)))
 
diff --git a/beautiful-racket-demo/basic-demo-3/runtime.rkt b/beautiful-racket-demo/basic-demo-3/runtime.rkt
index 45360ad..4da2e82 100644
--- a/beautiful-racket-demo/basic-demo-3/runtime.rkt
+++ b/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-repl!)
+(define (configure-this!)
+  (basic-output-port (current-output-port))
+  
   (define statement-parser (make-rule-parser b-statement))
   (define (read-one-line path port)
     (define one-line (read-line port))