From ef165fedda0d185737896358153f094bbfc7fbe0 Mon Sep 17 00:00:00 2001
From: yjqww6 <343519265@qq.com>
Date: Sun, 24 Jan 2021 16:49:09 +0800
Subject: [PATCH] cs: add pariah for slow path of define-inline

---
 racket/src/cs/rumble/inline.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/cs/rumble/inline.ss b/racket/src/cs/rumble/inline.ss
index b042a0b590..6251cd6952 100644
--- 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])))]))