From 27cc998f356156f2490a8efe529acf942887ea7e Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 22 Mar 2025 16:14:06 +0200 Subject: [PATCH] Remove debug logging --- retropikzel/pffi/gambit.scm | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/retropikzel/pffi/gambit.scm b/retropikzel/pffi/gambit.scm index f6b9f84..1c331d8 100644 --- a/retropikzel/pffi/gambit.scm +++ b/retropikzel/pffi/gambit.scm @@ -168,11 +168,6 @@ (define-macro (pffi-define scheme-name shared-object c-name return-type argument-types) - (display "HERE: ") - (write argument-types) - (newline) - (write (equal? '(list) argument-types)) - (newline) (letrec* ((native-argument-types (if (equal? '(list) argument-types) (list) @@ -196,11 +191,6 @@ "(" (c-arguments 1 (- (length argument-types) 1) "") ")" (if (equal? 'void (cadr return-type)) "" ")") ";"))) - (write `(define ,scheme-name - (c-lambda ,native-argument-types - ,native-return-type - ,c-code))) - (newline) `(define ,scheme-name (c-lambda ,native-argument-types ,native-return-type