Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

More test cases, trying to track down comp failure

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

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

@ -10,8 +10,10 @@
(scheme write) (scheme write)
) )
(inline (inline
my-string<=?
my-not) my-not)
(define (my-string<=? str1 str2) (<= (string-cmp str1 str2) 0))
(define (my-not x) (if x #f #t)) (define (my-not x) (if x #f #t))
(define (queue-empty) (cons '() '())) (define (queue-empty) (cons '() '()))
@ -39,3 +41,4 @@
(write (queue->list objects-dumped)) (write (queue->list objects-dumped))
(write (test 'c)) (write (test 'c))
(write (my-not (test 'd))) (write (my-not (test 'd)))
(write (my-string<=? (symbol->string (car objects-dumped))))