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

fix a test

Browse Source 
original commit: bd0eb64e1b13e731d8378ffa2fa2bc835795d4f8
This commit is contained in:
Matthew Flatt 2020-01-24 19:32:57 -07:00
parent 26ff90e8e6
commit 16acbf1ae6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mats/misc.ms
View File

@ -5541,7 +5541,9 @@
'(lambda (x) (x))) '(lambda (x) (x)))
(equivalent-expansion? (parameterize ([enable-unsafe-application #t]) (equivalent-expansion? (parameterize ([enable-unsafe-application #t])
(get-uncprep-form '(lambda (x) (x)))) (get-uncprep-form '(lambda (x) (x))))
'(lambda (x) (#3%$app x))) (if (= 3 (optimize-level))
'(lambda (x) (x))
'(lambda (x) (#3%$app x))))
) )
(mat phantom-bytevector (mat phantom-bytevector