This commit is contained in:
Justin Ethier 2016-07-10 23:05:50 -04:00
parent fa69ce0cb7
commit 2815d45030

View file

@ -7,7 +7,9 @@
;;;; This module contains information about Cyclone's scheme primitives.
;;;;
(define-library (scheme cyclone primitives)
(import (scheme base))
(import (scheme base)
; (srfii 69)
)
(export
prim?
*primitives*
@ -152,6 +154,19 @@
Cyc-write
Cyc-display))
; ;; Keep track of how many args are required for each primitive.
; ;; For each primitive, define:
; ;; - number of args
; ;; - min number of required args (for a func that takes optional args)
; ;; If the number is not applicable then the primitive is not listed or the value is #f
; (define *primitives-num-args*
; '()
; )
;
; (define (prim:num-args prim) 'TODO)
; (define (prim:min-num-args prim) 'TODO)
;; TODO: dont' put this here, just the list
; ;; Constant Folding
; ;; Is a primitive being applied in such a way that it can be