From b2fceb8a49667b32762dda2b7642a5e8cacda3f9 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 4 Jan 2019 07:48:09 -0500 Subject: [PATCH] More test cases, trying to track down comp failure --- cps-opt-analyze-call-graph-test.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/cps-opt-analyze-call-graph-test.scm b/cps-opt-analyze-call-graph-test.scm index b3784839..36a178e8 100644 --- a/cps-opt-analyze-call-graph-test.scm +++ b/cps-opt-analyze-call-graph-test.scm @@ -10,8 +10,10 @@ (scheme write) ) (inline + my-string<=? my-not) + (define (my-string<=? str1 str2) (<= (string-cmp str1 str2) 0)) (define (my-not x) (if x #f #t)) (define (queue-empty) (cons '() '())) @@ -39,3 +41,4 @@ (write (queue->list objects-dumped)) (write (test 'c)) (write (my-not (test 'd))) +(write (my-string<=? (symbol->string (car objects-dumped))))