Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed obsolete function

Browse source
This commit is contained in:
Justin Ethier 2015-11-05 02:49:07 -05:00
parent 62b44d667a
commit 4905df6261
1 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cgen.sld
View file

@ -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)