From 5112aa9f4686aa88474d43129db5faaa82235457 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 19 Jul 2017 18:02:20 -0400
Subject: [PATCH] Do not precompute user defined prim

---
 scheme/cyclone/transforms.sld | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 2cb0c371..bb6cbd60 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -349,6 +349,7 @@
   (and 
     (pair? ast)
     (prim? (car ast))
+    (not (prim:udf? (car ast)))
     ;; Does not make sense to precompute these
     (not (member (car ast)
                 '(Cyc-global-vars