deletion

8 years ago · 17785714fe
parent 86e19e0c0e
commit 17785714fe
1 changed files with 1 additions and 6 deletions
--- 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)])