mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-11 23:07:36 +02:00
Revert changes to string-byte-length
This allows us to run the module in the compiler right now
This commit is contained in:
parent
ea85c89268
commit
bf1d1e89e3
1 changed files with 8 additions and 4 deletions
|
@ -707,10 +707,14 @@
|
||||||
(string-append "\"" (cstr:escape-chars str) "\""))
|
(string-append "\"" (cstr:escape-chars str) "\""))
|
||||||
|
|
||||||
(define-c string-byte-length
|
(define-c string-byte-length
|
||||||
"(void *data, object clo, int argc, object *args)"
|
"(void *data, int argc, closure _, object k, object s)"
|
||||||
" Cyc_check_argc(data, \"string-byte-length\", argc, 2);
|
" return_closcall1(data, k, Cyc_string_byte_length(data, s)); ")
|
||||||
object s = args[1];
|
; cargs TODO:
|
||||||
return_closcall1(data, args[0], Cyc_string_byte_length(data, s)); ")
|
;(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
|
;; Primitives
|
||||||
|
|
Loading…
Add table
Reference in a new issue