edits

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

@@ -28,7 +28,7 @@
 (define b-rem void)
 (define (b-print [val ""]) (displayln val))
 (define (b-sum . nums) (apply + nums))
-(define (b-expr expr)
+(define (b-num-expr expr)
   (if (integer? expr) (inexact->exact expr) expr))
 
 (struct $program-end-signal ())

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

@@ -1,15 +1,12 @@
 #lang brag
-b-program : [b-line] (/NEWLINE+ [b-line])*
+b-program : [b-line] (/NEWLINE [b-line])*
 b-line : @b-line-number [b-statement] (/":" [b-statement])*
 b-line-number : INTEGER
-@b-statement : b-rem
+@b-statement : b-rem | b-end | b-print | b-goto
-             | b-print
-             | b-goto
-             | b-end
 b-rem : REM
-b-print : /"print" (STRING | b-expr)*
+b-end : /"end"
-b-goto : /"goto" b-expr
+b-print : /"print" [STRING | b-num-expr]
-b-expr : b-sum
+b-goto : /"goto" b-num-expr
+b-num-expr : b-sum
 b-sum : (b-number /"+")* b-number
-@b-number : INTEGER | DECIMAL
+@b-number : INTEGER | DECIMAL
-b-end : /"end"