Revert changes to string-byte-length

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

View file

@ -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