From 025a3ef1ce8803828e3420fd80bfd0c030d98dff Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 16 Nov 2016 19:04:05 -0500 Subject: [PATCH] debug WIP --- compiler-benchmark-debug.txt | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 compiler-benchmark-debug.txt diff --git a/compiler-benchmark-debug.txt b/compiler-benchmark-debug.txt new file mode 100644 index 00000000..eca84a1c --- /dev/null +++ b/compiler-benchmark-debug.txt @@ -0,0 +1,10 @@ +(DEBUG bind-in-order ((#((var-tag) result #t () () #(result #(expr result #f)) #f)))) +(INNER DEBUG (#((var-tag) result #t () () #(result #(expr result #f)) #f)) (#((var-tag) result #t () () #(result #(expr result #f)) #f))) + + + (define (bind-in-order order) +(write `(DEBUG bind-in-order ,order)) + (if (null? order) + (pt-body source body env use) + (let* ((vars-set (car order)) (vars (set->list vars-set))) +(write `(INNER DEBUG ,vars-set ,vars))