From 17785714fe76f0f5bb61b88054bbcc73dfe71418 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 15 Feb 2017 15:36:21 -0800 Subject: [PATCH] deletion --- beautiful-racket-demo/basic-demo-2/expr.rkt | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/beautiful-racket-demo/basic-demo-2/expr.rkt b/beautiful-racket-demo/basic-demo-2/expr.rkt index d735549..ecef2a7 100644 --- a/beautiful-racket-demo/basic-demo-2/expr.rkt +++ b/beautiful-racket-demo/basic-demo-2/expr.rkt @@ -21,9 +21,4 @@ (define-macro-cases b-expt [(_ VAL) #'VAL] - [(_ LEFT "^" RIGHT) #'(expt LEFT RIGHT)]) - -(define (b-not expr) (if (zero? expr) 1 0)) - -(define-macro (b-def ID VAR EXPR) - #'(set! ID (λ (VAR) EXPR))) + [(_ LEFT "^" RIGHT) #'(expt LEFT RIGHT)]) \ No newline at end of file