|
#lang racket
|
|
|
|
(require "uncover-locals.scm")
|
|
(require "test-util.scm")
|
|
|
|
(define programs
|
|
(list
|
|
`(program ()
|
|
((start . (seq (assign x.1 20) (seq (assign x.2 3) (return (+ x.1 x.2)))))))))
|
|
|
|
(test-eq
|
|
(cadr (uncover-locals (list-ref programs 0)))
|
|
`(locals . (x.1 x.2)))
|
|
|
|
|