From c2a7eeb12609c5c08e8bc585c7456db015108b76 Mon Sep 17 00:00:00 2001 From: Dave Watson Date: Wed, 25 Oct 2023 11:00:53 -0700 Subject: [PATCH] comment out debugging --- lib/passes.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/passes.scm b/lib/passes.scm index 9b98703..8522c9a 100644 --- a/lib/passes.scm +++ b/lib/passes.scm @@ -65,7 +65,7 @@ (eq? 'lambda (first (second (first (second f)))))) ;; It still might escape (begin - (dformat "Maybe inline: ~a\n" (cons (first f) (first (second f)))) + ;;(dformat "Maybe inline: ~a\n" (cons (first f) (first (second f)))) (imap pass f)) (imap pass f))) (else (imap pass f)))))