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
; Cyc-get-cvar
; Cyc-cvar? ;; Cyclone-specific
; Cyc-opaque?
; Cyc-has-cycle?
; Cyc-stdout
; Cyc-stdin
; Cyc-stderr
; Cyc-list
; %halt ; %halt
; exit ; exit
; cons char->integer
; cell-get integer->char
; cell ;; Are these OK? If obj is mutated the prim will still work because
; Cyc-fast-member ;; the type information will not change.
; Cyc-fast-assoc Cyc-cvar?
; assv Cyc-opaque?
; assq boolean?
; memq char?
; memv eof-object?
; length null?
; car number?
; cdr real?
; caar cadr cdar cddr integer?
; caaar caadr cadar caddr cdaar cdadr cddar cdddr pair?
; caaaar caaadr caadar caaddr cadaar cadadr port?
; caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr procedure?
; char->integer Cyc-macro?
; integer->char vector?
; string->number string?
; string-append symbol?
; 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)