From 5d089b83eb894bb972c0d4e81318ad6d0e9fb118 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Oct 2016 23:10:16 -0400
Subject: [PATCH] Bugfix, do not add & for "fast" functions

---
 scheme/cyclone/cgen.sld | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index e44f9533..1125d4e1 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -552,7 +552,12 @@
             (lambda (type)
               (let ((cv-name (mangle (gensym 'c))))
                 (c-code/vars 
-                  (string-append (if (prim:cont? p) "" "&") cv-name)
+                  (string-append 
+                    (if (or (prim:cont? p) 
+                            (prim/c-var-pointer p)) ;; Assume returns object
+                        "" 
+                        "&")
+                    cv-name)
                   (list
                     (string-append 
                       ;; Define closure if necessary (apply only)