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-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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue