Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove debug logging

This commit is contained in:
retropikzel 2025-03-22 16:14:06 +02:00
parent a0b316b47b
commit 27cc998f35
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
retropikzel/pffi/gambit.scm
View File

@ -168,11 +168,6 @@
(define-macro (define-macro
(pffi-define scheme-name shared-object c-name return-type argument-types) (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 (letrec* ((native-argument-types
(if (equal? '(list) argument-types) (if (equal? '(list) argument-types)
(list) (list)
@ -196,11 +191,6 @@
"(" (c-arguments 1 (- (length argument-types) 1) "") ")" "(" (c-arguments 1 (- (length argument-types) 1) "") ")"
(if (equal? 'void (cadr return-type)) "" ")") (if (equal? 'void (cadr return-type)) "" ")")
";"))) ";")))
(write `(define ,scheme-name
(c-lambda ,native-argument-types
,native-return-type
,c-code)))
(newline)
`(define ,scheme-name `(define ,scheme-name
(c-lambda ,native-argument-types (c-lambda ,native-argument-types
,native-return-type ,native-return-type