From c0814d26754da1e481ac36fa09608577abd41ece Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 25 May 2024 11:26:34 +0300 Subject: [PATCH] Small fixes --- retropikzel/pffi/v0-2-0/main.scm | 5 +++++ retropikzel/pffi/v0-2-0/main.sld | 5 +++++ retropikzel/pffi/v0-2-0/sagittarius.scm | 4 +++- 3 files changed, 13 insertions(+), 1 deletion(-) diff --git a/retropikzel/pffi/v0-2-0/main.scm b/retropikzel/pffi/v0-2-0/main.scm index 38679a0..04e5226 100644 --- a/retropikzel/pffi/v0-2-0/main.scm +++ b/retropikzel/pffi/v0-2-0/main.scm @@ -78,6 +78,11 @@ pffi-pointer-deref) (begin + + #|doc Testing multiline comment |# + + + (define library-version "v0-2-0") (define slash (cond-expand (windows (string #\\)) (else "/"))) diff --git a/retropikzel/pffi/v0-2-0/main.sld b/retropikzel/pffi/v0-2-0/main.sld index 38679a0..04e5226 100644 --- a/retropikzel/pffi/v0-2-0/main.sld +++ b/retropikzel/pffi/v0-2-0/main.sld @@ -78,6 +78,11 @@ pffi-pointer-deref) (begin + + #|doc Testing multiline comment |# + + + (define library-version "v0-2-0") (define slash (cond-expand (windows (string #\\)) (else "/"))) diff --git a/retropikzel/pffi/v0-2-0/sagittarius.scm b/retropikzel/pffi/v0-2-0/sagittarius.scm index e4928fc..cdc6509 100644 --- a/retropikzel/pffi/v0-2-0/sagittarius.scm +++ b/retropikzel/pffi/v0-2-0/sagittarius.scm @@ -95,7 +95,9 @@ (define pffi-pointer->string (lambda (pointer) - (pointer->string pointer))) + (if (string? pointer) + pointer + (pointer->string pointer)))) (define pffi-shared-object-load (lambda (header path)