From bf1d1e89e367f6e9ed6d044b493cd72b2384797f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 2 Feb 2021 22:21:43 -0500 Subject: [PATCH] Revert changes to string-byte-length This allows us to run the module in the compiler right now --- scheme/cyclone/cgen.sld | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 9ee476f5..de436cea 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -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