cs: add pariah for slow path of define-inline

2021-01-24 16:49:09 +08:00 · 2021-01-24 16:49:09 +08:00 · ef165fedda
commit ef165fedda
parent dcb7257d3f
1 changed files with 1 additions and 1 deletions
--- a/racket/src/cs/rumble/inline.ss
+++ b/racket/src/cs/rumble/inline.ss
@ -17,7 +17,7 @@
              #'(let ([arg tmp] ...)
                  (if guard
                      op
-                      (orig-app orig-id arg ...)))]
+                      (pariah (orig-app orig-id arg ...))))]
             [(_ . args)
              #'(orig-id . args)]
             [_ #'orig-id])))]))