From 95922d257efdcb79a20ab269a1b82a992a4f8dbf Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 10 Sep 2019 17:47:26 -0400
Subject: [PATCH] Only print when debugging as a program

---
 scheme/cyclone/pass-validate-syntax.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/pass-validate-syntax.scm b/scheme/cyclone/pass-validate-syntax.scm
index a55fbaec..74689670 100644
--- a/scheme/cyclone/pass-validate-syntax.scm
+++ b/scheme/cyclone/pass-validate-syntax.scm
@@ -57,7 +57,9 @@
     (append vars (filter include-var? syms)))
 
   (define (search exp vars)
-    (pretty-print `(search ,exp ,vars))(newline)
+    (cond-expand
+      (program
+        (pretty-print `(search ,exp ,vars))(newline))) ;; Debugging
     (cond
       ;((ast:lambda? exp) 'TODO)
       ((const? exp) #f)