make test for relop-length more sensitive

5_2.ms original commit: b34695bb3faa28c3e55d65cc659f6a9f2c3b1547
2019-05-23 19:57:47 -03:00 · 2019-05-23 19:57:47 -03:00 · 40d33fc72e
commit 40d33fc72e
parent 3c53b8b940
2 changed files with 4 additions and 2 deletions
--- a/2
+++ b/2
@ -1368,3 +1368,5 @@
    primdata.ss
 - small fix in relop-length to enable the optimization
    cpnanopass.ss
+- make test for relop-length more sensitive
+    5_2.ms
--- a/mats/5_2.ms
+++ b/mats/5_2.ms
@ -188,7 +188,7 @@
          [(_ prim)
           (let ()
             (define (f x)
-               (and
+               (list
                 (prim (#3%length x) 0)
                 (prim 0 (#3%length x))
                 (prim (#3%length x) 1)
@ -204,7 +204,7 @@
                 (let ([n (length x)])
                   (equal?
                     (f x)
-                     (and
+                     (list
                       (prim n 0)
                       (prim 0 n)
                       (prim n 1)