diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index f6401e19..3d7f7d3f 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -673,13 +673,6 @@
        (member exp '(Cyc-read-line apply command-line-arguments number->string 
                      symbol->string list->string substring string-append
                      make-vector list->vector Cyc-installation-dir))))
-;; TODO: this is a hack, right answer is to include information about
-;;  how many args each primitive is supposed to take
-(define (prim:cont-has-args? exp)
-  (and (prim? exp)
-       (member exp '(Cyc-read-line apply number->string symbol->string 
-                     list->string substring string-append
-                     make-vector list->vector Cyc-installation-dir))))
 
 ;; Pass an integer arg count as the function's first parameter?
 (define (prim:arg-count? exp)