Eliminate the unnecessary quoting of xtmtest-* forms

Since we've removed the double eval from xtmtest and xtmtest-compile,
we can now fix all the tests to stop quoting their 'form' arguments.

'tests/all-core.xtm' is still passing.

Author: pdcawley

tests/core/adt.xtm

@@ -14,7 +14,7 @@
            (ADRect ADPoint{!a}* !a !a))
 
 (xtmtest
- '(bind-func algdt_test1
+ (bind-func algdt_test1
     (lambda ()
       (let ((p1 (ADPoint2D 11 12))
             (circle (ADCircle p1 5:i64))
@@ -38,14 +38,14 @@
            (ADRight !b))
 
 (xtmtest-compile
- '(bind-func algdt_test2:[ADEither{i64,String*}*,i1]*
+ (bind-func algdt_test2:[ADEither{i64,String*}*,i1]*
     (lambda (choice)
       (if choice
           (ADLeft 100)
           (ADRight '100')))))
 
 (xtmtest
- '(bind-func algdt_test3
+ (bind-func algdt_test3
     (lambda ()
       (let ((res (algdt_test2 #f)))
         (ADRight$ res (x) (println x) (println "wrong"))
@@ -176,7 +176,7 @@
 
 ;; list test 1
 (xtmtest
- '(bind-func algdt_test4
+ (bind-func algdt_test4
     (lambda ()
       (let ((l1 (ADCons 1 (ADCons 2 (ADNil)))))
         (println 'l1 '= l1))))
@@ -185,7 +185,7 @@
 
 ;; list test 2
 (xtmtest
- '(bind-func algdt_test5
+ (bind-func algdt_test5
     (lambda ()
       (let ((l1 (ADCons 1 (ADCons 2 (ADNil))))
             (l2 (fmap (lambda (x) (* x x)) l1)))
@@ -194,7 +194,7 @@
 
 ;; list test 3
 (xtmtest
- '(bind-func algdt_test6
+ (bind-func algdt_test6
     (lambda ()
       (let ((l1 (ADCons 1 (ADCons 2 (ADNil))))
             (l3 (fmap (lambda (x) (ADCons x (ADCons x (ADNil)))) l1)))
@@ -227,14 +227,14 @@
               (Str "()"))))
 
 (xtmtest-compile
- '(bind-func algdt_test8
+ (bind-func algdt_test8
     (lambda ()
       (dolet ((x (adrange 1 2))
               (y (adrange 1 4)))
              (unit (ADPair x y))))))
 
 (xtmtest
- '(bind-func algdt_test8b
+ (bind-func algdt_test8b
     (lambda ()
       (println (algdt_test8))))
  (algdt_test8b))
@@ -322,7 +322,7 @@
 
 
 (xtmtest
- '(bind-func algdt_test9
+ (bind-func algdt_test9
     (lambda ()
       (println (div_test (ADSome 125) (ADSome 25))
                (div_test 50 10)

tests/core/algebraic_data_types.xtm

@@ -77,7 +77,7 @@
 ;; bind-val
 
 (xtmtest
- '(bind-func return_string_gv_with_docstring
+ (bind-func return_string_gv_with_docstring
     (lambda ()
       string_gv_with_docstring))
  (string=? (cptr->string (return_string_gv_with_docstring)) "sgv")
@@ -90,7 +90,7 @@
 ;; i8*, the string literal is the value (not the docstring)
 
 (xtmtest
- '(bind-func return_string_gv_no_docstring
+ (bind-func return_string_gv_no_docstring
     (lambda ()
       string_gv_no_docstring))
  (string=? (cptr->string (return_string_gv_no_docstring)) "sgv")
@@ -101,7 +101,7 @@
  #t)
 
 (xtmtest
- '(bind-func return_string_gv_no_initval
+ (bind-func return_string_gv_no_initval
     (lambda ()
       string_gv_no_initval))
  (string=? (cptr->string (return_string_gv_no_initval)) "")