From 058d30224dbf17ee211d3561085c619c10e137fe Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 4 Jan 2019 07:43:58 -0500 Subject: [PATCH] Additional test case --- cps-opt-analyze-call-graph-test.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/cps-opt-analyze-call-graph-test.scm b/cps-opt-analyze-call-graph-test.scm index cfb5472a..b3784839 100644 --- a/cps-opt-analyze-call-graph-test.scm +++ b/cps-opt-analyze-call-graph-test.scm @@ -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)))