From f2c8436347caa50057acb09c0b651a1457c8d40e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 30 Mar 2019 09:45:08 -0600
Subject: [PATCH] fix propagation of call info in push-mrvs pass

original commit: b0631023e4c1e8263a78f6045ee611e3a76210c3
---
 s/cpnanopass.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/s/cpnanopass.ss b/s/cpnanopass.ss
index 3c0848581a..5aefe61add 100644
--- a/s/cpnanopass.ss
+++ b/s/cpnanopass.ss
@@ -10081,7 +10081,8 @@
               x)))
         (define make-info-call-like
           (lambda (info shift-consumer-attachment?*)
-            (make-info-call (info-call-src info) (info-call-sexpr info) #f #f #f
+            (make-info-call (info-call-src info) (info-call-sexpr info)
+                            (info-call-check? info) (info-call-pariah? info) (info-call-error? info)
                             (info-call-shift-attachment? info)
                             shift-consumer-attachment?*)))
         (define Mvcall