From 4905df626106f568a029441d6570e02f586bd20d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 5 Nov 2015 02:49:07 -0500 Subject: [PATCH] Removed obsolete function --- scheme/cyclone/cgen.sld | 7 ------- 1 file changed, 7 deletions(-) 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)