mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-15 16:57:35 +02:00
Designated more primitives dealing with immutables
This commit is contained in:
parent
44bd8986d7
commit
3985544a0f
1 changed files with 22 additions and 50 deletions
|
@ -815,56 +815,28 @@
|
|||
Cyc-fast-lt
|
||||
Cyc-fast-gte
|
||||
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
|
||||
; exit
|
||||
; cons
|
||||
; cell-get
|
||||
; cell
|
||||
; Cyc-fast-member
|
||||
; Cyc-fast-assoc
|
||||
; assv
|
||||
; assq
|
||||
; memq
|
||||
; memv
|
||||
; length
|
||||
; car
|
||||
; 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?
|
||||
char->integer
|
||||
integer->char
|
||||
;; Are these OK? If obj is mutated the prim will still work because
|
||||
;; the type information will not change.
|
||||
Cyc-cvar?
|
||||
Cyc-opaque?
|
||||
boolean?
|
||||
char?
|
||||
eof-object?
|
||||
null?
|
||||
number?
|
||||
real?
|
||||
integer?
|
||||
pair?
|
||||
port?
|
||||
procedure?
|
||||
Cyc-macro?
|
||||
vector?
|
||||
string?
|
||||
symbol?
|
||||
)))
|
||||
|
||||
(define (prim:inline-convert-prim-call prim-call)
|
||||
|
|
Loading…
Add table
Reference in a new issue