From bda6cec5427093c7ef9a2a9112ee623aebd07a5a Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sat, 26 Oct 2024 21:27:58 +0200
Subject: Make interpreter debug printing conditional

---
 src/ForwardAD.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ForwardAD.hs')

diff --git a/src/ForwardAD.hs b/src/ForwardAD.hs
index 86d2fb0..67d22dd 100644
--- a/src/ForwardAD.hs
+++ b/src/ForwardAD.hs
@@ -215,5 +215,5 @@ drevByFwd :: SList STy env -> Ex env t -> SList Value env -> Rep (Tan t) -> SLis
 drevByFwd env expr input dres =
   let outty = typeOf expr
   in dnOnehotEnvs env input $ \dnInput ->
-       let (_, outtan) = unzipDN outty (interpretOpen dnInput (dfwdDN expr))
+       let (_, outtan) = unzipDN outty (interpretOpen False dnInput (dfwdDN expr))
        in dotprodTan outty outtan dres
-- 
cgit v1.2.3-70-g09d2