csc/macros-test.csc


1
2
3
4
5
6
7
8
9
10
11
12

(import (scheme base)
        (only (csc ir1) make-constant)
        (only (csc testing)
          assert-equal
          test)
        (csc macros))


(test builtin-quote
  (assert-equal
    (make-constant '(test 1 2 3))
    (expand '(quote (test 1 2 3)) test-environment)))