fix a test

original commit: bd0eb64e1b13e731d8378ffa2fa2bc835795d4f8
2020-01-24 19:32:57 -07:00 · 2020-01-24 19:32:57 -07:00 · 16acbf1ae6
commit 16acbf1ae6
parent 26ff90e8e6
1 changed files with 3 additions and 1 deletions
--- a/mats/misc.ms
+++ b/mats/misc.ms
@ -5541,7 +5541,9 @@
                         '(lambda (x) (x)))
  (equivalent-expansion? (parameterize ([enable-unsafe-application #t])
                           (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