From a4319fd48d7fa5d34dd3f019695f22351662a74c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 4 Apr 2017 08:54:06 +0000
Subject: [PATCH] prim-convert - do not stop on first ref

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

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 3f11e6f5..fd5ab5db 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1223,7 +1223,7 @@
        (cond
         ((ref? (car ast))
          `( ,(prim:func->prim (car ast) (- (length ast) 1))
-            ,@(cdr ast)))
+            ,@(map conv (cdr ast))))
         (else
          (map conv ast))))
       (else