csc/cps-test.csc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(import (scheme base)
        (only (csc ir2)
          ir2=?
          make-atom
          make-tail
          make-constant)
        (only (csc testing)
          assert-equal
          test)
        (csc cps))


(test atom-const
  (assert-equal ir2=?
    (make-atom
      (make-constant 5)
      (make-tail))
    (ir1->ir2 (make-constant 5))))