diff --git a/beautiful-racket-demo/basic-demo-2/expr.rkt b/beautiful-racket-demo/basic-demo-2/expr.rkt index 9c48201..8b3dfd7 100644 --- a/beautiful-racket-demo/basic-demo-2/expr.rkt +++ b/beautiful-racket-demo/basic-demo-2/expr.rkt @@ -24,5 +24,3 @@ (define-macro (b-def ID VAR EXPR) #'(set! ID (λ (VAR) EXPR))) - -(define (b-func id val) (id val)) \ No newline at end of file diff --git a/beautiful-racket-demo/basic-demo-2/parser.rkt b/beautiful-racket-demo/basic-demo-2/parser.rkt index 4dd4edb..c5a7c77 100644 --- a/beautiful-racket-demo/basic-demo-2/parser.rkt +++ b/beautiful-racket-demo/basic-demo-2/parser.rkt @@ -29,7 +29,7 @@ b-product : [b-product ("*"|"/"|"%"|"^")] b-value ;; values @b-value : b-id | b-number | /"(" b-expr /")" | b-not | b-func -b-func : b-id /"(" b-expr /")" +/b-func : b-id /"(" b-expr /")" b-not : /"!" b-value @b-id : ID @b-number : b-positive | b-negative