From 4462141a4101839905b3d04c31f2a84beb7b6d8e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 7 Feb 2017 13:11:32 -0800 Subject: [PATCH] remove `b-func` --- beautiful-racket-demo/basic-demo-2/expr.rkt | 2 -- beautiful-racket-demo/basic-demo-2/parser.rkt | 2 +- 2 files changed, 1 insertion(+), 3 deletions(-) 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