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

Cut over to Cyc_number2string2

Browse source
This commit is contained in:
Justin Ethier 2016-04-04 23:21:53 -04:00
parent 7f05cd94ef
commit 096d1e8a77
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/cgen.sld
View file

@ -588,7 +588,7 @@
((eq? p 'string-cmp) "Cyc_string_cmp") ((eq? p 'string-cmp) "Cyc_string_cmp")
((eq? p 'string->symbol) "Cyc_string2symbol") ((eq? p 'string->symbol) "Cyc_string2symbol")
((eq? p 'symbol->string) "Cyc_symbol2string") ((eq? p 'symbol->string) "Cyc_symbol2string")
((eq? p 'number->string) "Cyc_number2string") ((eq? p 'number->string) "Cyc_number2string2")
((eq? p 'string-length) "Cyc_string_length") ((eq? p 'string-length) "Cyc_string_length")
((eq? p 'string-ref) "Cyc_string_ref") ((eq? p 'string-ref) "Cyc_string_ref")
((eq? p 'string-set!) "Cyc_string_set") ((eq? p 'string-set!) "Cyc_string_set")
@ -794,7 +794,7 @@
(define (prim:arg-count? exp) (define (prim:arg-count? exp)
(and (prim? exp) (and (prim? exp)
(member exp '(error Cyc-write Cyc-display (member exp '(error Cyc-write Cyc-display
string->number string-append number->string string->number string-append
make-bytevector make-bytevector
bytevector bytevector
bytevector-append bytevector-append