blob: 1a326aa2e47be2cb544efd8cf8cea50154f9481a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(load "../common")
(defvarl list)
(test
[(compile-toplevel '(progn
(push 0 list)
(load-time (push 1 list))
list))]
(0 1))
(zap list)
(test
[(compile-toplevel '(progn
(push 0 list)
(lambda ()
(load-time (push 1 list)))
list))]
(0 1))
(zap list)
(test
[(compile-toplevel '(progn
(load-time (push 0 list))
(lambda ()
(load-time (push 1 list)))
list))]
(1 0))
|
