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

Revert changes to string-byte-length

Browse source 
This allows us to run the module in the compiler right now
This commit is contained in:
Justin Ethier 2021-02-02 22:21:43 -05:00
parent ea85c89268
commit bf1d1e89e3
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/cgen.sld
View file

@ -707,10 +707,14 @@
(string-append "\"" (cstr:escape-chars str) "\""))
(define-c string-byte-length
"(void *data, object clo, int argc, object *args)"
" Cyc_check_argc(data, \"string-byte-length\", argc, 2);
object s = args[1];
return_closcall1(data, args[0], Cyc_string_byte_length(data, s)); ")
"(void *data, int argc, closure _, object k, object s)"
" return_closcall1(data, k, Cyc_string_byte_length(data, s)); ")
; cargs TODO:
;(define-c string-byte-length
; "(void *data, object clo, int argc, object *args)"
; " Cyc_check_argc(data, \"string-byte-length\", argc, 2);
; object s = args[1];
; return_closcall1(data, args[0], Cyc_string_byte_length(data, s)); ")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Primitives