deletion

beautiful-racket-demo/basic-demo-2/expr.rkt

@@ -21,9 +21,4 @@
 
 (define-macro-cases b-expt
   [(_ VAL) #'VAL]
-  [(_ LEFT "^" RIGHT) #'(expt LEFT RIGHT)])
+  [(_ 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)))