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

Added more functions to (prim-creates-mutable-obj?)

Browse source
This commit is contained in:
Justin Ethier 2016-07-15 19:37:16 -04:00
parent c1bd242205
commit c23d3c4a7a
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/cps-optimizations.sld
View file

@ -526,7 +526,13 @@
(define (prim-creates-mutable-obj? prim) (define (prim-creates-mutable-obj? prim)
(member (member
prim prim
'(cons make-vector make-bytevector))) '(cons
make-vector
make-bytevector
bytevector bytevector-append bytevector-copy
string->utf8 number->string symbol->string list->string utf8->string
string-append string substring Cyc-installation-dir read-line
)))
;; Check each pair of primitive call / corresponding lambda arg, ;; Check each pair of primitive call / corresponding lambda arg,
;; and verify that if the primitive call creates a new mutable ;; and verify that if the primitive call creates a new mutable