From 16acbf1ae6d5ec5428cac22c3abb7f889423fd31 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 24 Jan 2020 19:32:57 -0700
Subject: [PATCH] fix a test

original commit: bd0eb64e1b13e731d8378ffa2fa2bc835795d4f8
---
 mats/misc.ms | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mats/misc.ms b/mats/misc.ms
index 86aeb03724..76f9bb73dc 100644
--- 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