fix a contract test

2020-12-22 14:38:52 +08:00 · 2020-12-22 14:38:52 +08:00 · 153569894c
commit 153569894c
parent 33fd201947
1 changed files with 1 additions and 0 deletions
--- a/pkgs/racket-test/tests/racket/contract/stronger.rkt
+++ b/pkgs/racket-test/tests/racket/contract/stronger.rkt
@ -720,6 +720,7 @@
        (struct/dc s
                   [a (>=/c c)]
                   [b (a) (>=/c a)]))
+      (set! mk mk) ;suppress inlining
      (define one (mk 1))
      (define two (mk 2))
      (,test #f trust/not-stronger? one two)