diff options
| -rw-r--r-- | stdlib/optimize.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index a16403b9..702a4252 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -539,7 +539,8 @@ . @(all @(or (d @dn) @(with (t 0) dn nil)))) . @rest) - [%const-foldable% [bb.symvec idx]]) + [%const-foldable% [bb.symvec idx]] + [none dn (lop member bb.lt-dregs : cadr)]) (let* ((co bb.compiler) (dvec co.(get-datavec)) (fun [bb.symvec idx]) |