Small fixes

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 "/")))
 

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 "/")))
 

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)