From 4b969384889ccb24c96a821ae3b8eb9f05ed08cd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 28 Nov 2016 18:11:52 -0500
Subject: [PATCH] Added Cyc-list

---
 scheme/cyclone/primitives.sld | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index 447a974b..88f25877 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -61,6 +61,7 @@
          Cyc-stdout
          Cyc-stdin
          Cyc-stderr
+         Cyc-list
          Cyc-fast-plus
          Cyc-fast-sub
          Cyc-fast-mul
@@ -429,6 +430,7 @@
          ((eq? p 'Cyc-stdout)            "Cyc_stdout")
          ((eq? p 'Cyc-stdin)             "Cyc_stdin")
          ((eq? p 'Cyc-stderr)            "Cyc_stderr")
+         ((eq? p 'Cyc-list)              "Cyc_list")
          ((eq? p 'Cyc-fast-plus)         "Cyc_fast_sum")
          ((eq? p 'Cyc-fast-sub)          "Cyc_fast_sub")
          ((eq? p 'Cyc-fast-mul)          "Cyc_fast_mul")
@@ -567,6 +569,7 @@
     ;; Does the primitive require passing thread data as its first argument?
     (define (prim/data-arg? p)
       (member p '(
+        Cyc-list
         Cyc-fast-plus
         Cyc-fast-sub
         Cyc-fast-mul
@@ -753,6 +756,7 @@
            (member exp '(Cyc-read-line apply command-line-arguments number->string 
                          + - * /
                          = > < >= <=
+                         Cyc-list
                          read-char peek-char 
                          symbol->string list->string substring string-append string->number
                          make-bytevector
@@ -783,6 +787,7 @@
                            bytevector
                            bytevector-append
                            make-vector
+                           Cyc-list
                            = > < >= <=
                            + - * /))))