removing strange code

I have no idea how this got in.  Will investigate at another time.

1 files changed, 0 insertions, 27 deletions

diff --git a/test/main.lali b/test/main.lali
index 25a23cf..5ad4b55 100644
--- a/test/main.lali
+++ b/test/main.lali
@@ -96,30 +96,3 @@
                 (newline)
                 (princ '(All with success.))
                 (newline)))
-
-(defmacro clean (x) (newline) (princ '(** macro clean:)) (newline) (print x) (newline) (print x) (newline))
-(defmacro mac (x) (newline) (princ '(** macro:)) (newline) (print x) (newline) (print (eval x)) (newline))
-(defmacro macr (x) (newline) (princ '(** macro reverse:)) (newline) (print (eval x)) (newline) (print x) (newline))
-(defmacro double (x) (newline) (princ '(** double:)) (newline) (print (eval (eval x))) (newline))
-(defun fun (x) (newline) (princ '(** function:)) (newline) (print x) (newline) (print (eval x)) (newline))
-(defun fun1 (x) (newline) (princ '(** function reverse:)) (newline) (print (eval x)) (newline) (print x) (newline))
-
-(newline)
-(princ '(TEST (and t t f)))
-(newline)
-(princ '(- unquoted))
-(newline)
-(clean (and t t f))
-(mac (and t t f))
-(macr (and t t f))
-(double (and t t f))
-(fun (and t t f))
-(fun1 (and t t f))
-(princ '(- quoted))
-(newline)
-(clean '(and t t f))
-(mac '(and t t f))
-(macr '(and t t f))
-(double '(and t t f))
-(fun '(and t t f))
-(fun1 '(and t t f))