From 80f717452e3937dabaa76820bd6e3a39d893e2b2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 11 Jul 2016 23:40:53 -0400
Subject: [PATCH] WIP

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

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 76d8fede..6b00b3a2 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -22,6 +22,7 @@
           (scheme cyclone primitives)
           (scheme cyclone pretty-print)
           (scheme cyclone util)
+;          (srfi 69)
   )
   (export
     *defined-macros* 
@@ -1293,6 +1294,12 @@
                  (difference fv (built-in-syms)))
                (list))))))
 
+;;
+;; Helpers to syntax check primitive calls
+;;
+;(define *prim-args-table*
+;  (alist->hash-table *primitives-num-args*))
+
 ;; CPS conversion 
 ;;
 ;; This is a port of code from the 90-minute Scheme->C Compiler by Marc Feeley
@@ -1340,6 +1347,13 @@
                           cont-ast)))))
 
           ((prim-call? ast)
+           ;(prim:check-arg-count
+           ;      (car ast)
+           ;      (- (length ast) 1)
+           ;      (hash-table-ref/default 
+           ;        *prim-args-table*
+           ;        (car ast)
+           ;        #f))
            (cps-list (cdr ast) ; args to primitive function
                      (lambda (args)
                         (list cont-ast