Designated more primitives dealing with immutables

This commit is contained in:
Justin Ethier 2016-12-14 17:31:46 -05:00
parent 44bd8986d7
commit 3985544a0f

View file

@ -815,56 +815,28 @@
Cyc-fast-lt Cyc-fast-lt
Cyc-fast-gte Cyc-fast-gte
Cyc-fast-lte Cyc-fast-lte
; Cyc-global-vars ; %halt
; Cyc-get-cvar ; exit
; Cyc-cvar? ;; Cyclone-specific char->integer
; Cyc-opaque? integer->char
; Cyc-has-cycle? ;; Are these OK? If obj is mutated the prim will still work because
; Cyc-stdout ;; the type information will not change.
; Cyc-stdin Cyc-cvar?
; Cyc-stderr Cyc-opaque?
; Cyc-list boolean?
; %halt char?
; exit eof-object?
; cons null?
; cell-get number?
; cell real?
; Cyc-fast-member integer?
; Cyc-fast-assoc pair?
; assv port?
; assq procedure?
; memq Cyc-macro?
; memv vector?
; length string?
; car symbol?
; cdr
; caar cadr cdar cddr
; caaar caadr cadar caddr cdaar cdadr cddar cdddr
; caaaar caaadr caadar caaddr cadaar cadadr
; caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
; char->integer
; integer->char
; string->number
; string-append
; string-cmp
; list->string
; string->symbol
; symbol->string
; number->string
; boolean?
; char?
; eof-object?
; null?
; number?
; real?
; integer?
; pair?
; port?
; procedure?
; Cyc-macro?
; vector?
; string?
; symbol?
))) )))
(define (prim:inline-convert-prim-call prim-call) (define (prim:inline-convert-prim-call prim-call)