From 1052bc8dffe380bd363e1acbb3c3d1b823c5d7e9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 30 Dec 2018 06:10:11 -0700
Subject: [PATCH] unbreak cify build

---
 racket/src/cify/prune.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/cify/prune.rkt b/racket/src/cify/prune.rkt
index 1edb5ae7ef..9ae9867f08 100644
--- a/racket/src/cify/prune.rkt
+++ b/racket/src/cify/prune.rkt
@@ -82,6 +82,6 @@
 
   (find-candidate-ids! e)
   (for ([ex (in-list exports)])
-    (hash-remove! candidate-ids (cadr ex)))
+    (hash-remove! candidate-ids (car ex)))
   (find! e)
   (prune e))