suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make test for relop-length more sensitive

Browse Source 
5_2.ms

original commit: b34695bb3faa28c3e55d65cc659f6a9f2c3b1547
This commit is contained in:
Gustavo Massaccesi 2019-05-23 19:57:47 -03:00 committed by Bob Burger
parent 3c53b8b940
commit 40d33fc72e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LOG
View File

@ -1368,3 +1368,5 @@
primdata.ss primdata.ss
- small fix in relop-length to enable the optimization - small fix in relop-length to enable the optimization
cpnanopass.ss cpnanopass.ss
- make test for relop-length more sensitive
5_2.ms

4
mats/5_2.ms
View File

@ -188,7 +188,7 @@
[(_ prim) [(_ prim)
(let () (let ()
(define (f x) (define (f x)
(and (list
(prim (#3%length x) 0) (prim (#3%length x) 0)
(prim 0 (#3%length x)) (prim 0 (#3%length x))
(prim (#3%length x) 1) (prim (#3%length x) 1)
@ -204,7 +204,7 @@
(let ([n (length x)]) (let ([n (length x)])
(equal? (equal?
(f x) (f x)
(and (list
(prim n 0) (prim n 0)
(prim 0 n) (prim 0 n)
(prim n 1) (prim n 1)