Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Additional test case

Browse source
This commit is contained in:
Justin Ethier 2019-01-04 07:43:58 -05:00
parent 6be26698c1
commit 058d30224d
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
cps-opt-analyze-call-graph-test.scm
View file

@ -9,6 +9,10 @@
(scheme base)
(scheme write)
)
(inline
my-not)
(define (my-not x) (if x #f #t))
(define (queue-empty) (cons '() '()))
(define objects-dumped (queue-empty))
@ -34,3 +38,4 @@
(queue-put! objects-dumped 'b)
(write (queue->list objects-dumped))
(write (test 'c))
(write (my-not (test 'd)))