Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

bytevector primitives

Browse source
This commit is contained in:
Justin Ethier 2016-03-22 23:16:18 -04:00
parent 059f6d5321
commit 14abd06304
2 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/transforms.sld
View file

@ -512,6 +512,9 @@
string-ref string-ref
string-set! string-set!
substring substring
make-bytevector
bytevector-length
bytevector?
make-vector make-vector
list->vector list->vector
vector-length vector-length
@ -578,6 +581,7 @@
set-cdr! set-cdr!
string-set! string-set!
string->symbol ;; Could be mistaken for an identifier string->symbol ;; Could be mistaken for an identifier
make-bytevector
make-vector make-vector
;; I/O must be done at runtime for side effects: ;; I/O must be done at runtime for side effects:
Cyc-stdout Cyc-stdout

3
scheme/eval.sld
View file

@ -243,6 +243,8 @@
(list 'string-ref string-ref) (list 'string-ref string-ref)
(list 'string-set! string-set!) (list 'string-set! string-set!)
(list 'substring substring) (list 'substring substring)
(list 'make-bytevector make-bytevector)
(list 'bytevector-length bytevector-length)
(list 'make-vector make-vector) (list 'make-vector make-vector)
(list 'list->vector list->vector) (list 'list->vector list->vector)
(list 'vector-length vector-length) (list 'vector-length vector-length)
@ -260,6 +262,7 @@
(list 'procedure? procedure?) (list 'procedure? procedure?)
(list 'macro? macro?) (list 'macro? macro?)
(list 'vector? vector?) (list 'vector? vector?)
(list 'bytevector? bytevector?)
(list 'string? string?) (list 'string? string?)
(list 'symbol? symbol?) (list 'symbol? symbol?)
(list 'open-input-file open-input-file) (list 'open-input-file open-input-file)