From e80b83440ed290d4d2cb0b79853b591d242cb1d5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 7 Jun 2018 17:52:08 -0400 Subject: [PATCH] Add debug output --- scheme/cyclone/cgen.sld | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 4b511bf3..1a6e794a 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -801,6 +801,11 @@ ;; ) (trace:info `(loop ,cgen-lis ,parent-args)) +;; Output so far on ntakl: +;;(loop (("Cyc_cdr(data, x_736_73133)" ()) +;; ("Cyc_cdr(data, y_735_73132)" ())) +;; (k$241 x$6$133 y$5$132)) + (c-code (string-append cgen-allocs ;(c:allocs->str (c:allocs cgen))