diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-10-26 21:27:58 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-10-26 21:27:58 +0200 |
| commit | bda6cec5427093c7ef9a2a9112ee623aebd07a5a (patch) | |
| tree | 5cb1857d1191e5a94125779b5fce2eda4006e7ee /src/ForwardAD.hs | |
| parent | fbd51aec2830c6a2eca0f92af1163664a608e194 (diff) | |
Make interpreter debug printing conditional
Diffstat (limited to 'src/ForwardAD.hs')
| -rw-r--r-- | src/ForwardAD.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |