touchup

beautiful-racket-demo/basic-demo/basic-test.rkt

@@ -4,4 +4,4 @@
 30 rem goto 50
 45 print "shite"
 50 print "foobar"
-30 goto 50
+10 goto 45

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

@@ -1,6 +1,4 @@
 #lang br/quicklang
-(provide (rename-out [b-module-begin #%module-begin])
-         (all-defined-out))
 
 (define-exn-srcloc duplicate-line-number exn:fail)
 
@@ -11,6 +9,7 @@
        (raise-duplicate-line-number
         ($line-srcloc (check-duplicates lines = #:key $line-number))))
      (run lines)))
+(provide (rename-out [b-module-begin #%module-begin]))
 
 (struct $line (number thunk srcloc) #:transparent)
 
@@ -18,9 +17,7 @@
   (with-pattern ([SRCLOC (syntax-srcloc caller-stx)])
     #'($line LINE-NUMBER (thunk STATEMENT) SRCLOC)))
 
-(define-macro (b-statement (PROC-NAME ARG ...))
-  #'(begin (PROC-NAME ARG ...)))
-
+(define (b-statement stmt) stmt)
 (define (b-rem str) #f)
 (define (b-print str) (displayln str))
 (define (b-goto line-number) line-number)
@@ -28,6 +25,8 @@
 (define-exn end-program-signal exn:fail)
 (define (b-end) (raise-end-program-signal))
 
+(provide b-line b-statement b-rem b-print b-goto b-end)
+
 (define-exn-srcloc line-not-found exn:fail)
 
 (define (run lines)

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

@@ -1,3 +0,0 @@
-#lang br
-(provide (all-defined-out))
-(define current-print-status (make-parameter #t))