Minor sagittarius fixes

README.md

@@ -141,7 +141,7 @@ Arguments:
 
 - scheme-name () The name of the procedure used on scheme side
 - shared-object (object) The shared object
-- Use pffi-shared-object-auto-load and pffi-shared-object-load to get this
+  - Use pffi-shared-object-auto-load or pffi-shared-object-load to get this
 - c-name (symbol) The name of the C function
 - return-type (symbol) The return type of the C function
 - arguments-types (list (symbol) ...) The C function argument types

retropikzel/pffi/v0-2-0/sagittarius.scm

@@ -42,7 +42,7 @@
               ((equal? type 'float) 'float)
               ((equal? type 'double) 'double)
               ((equal? type 'pointer) 'void*)
-              ((equal? type 'string) 'void*)
+              ((equal? type 'string) 'char*)
               ((equal? type 'void) 'void)
               (else (error "pffi-type->native-type -- No such pffi type" type)))))
 
@@ -91,7 +91,7 @@
 
     (define pffi-string->pointer
       (lambda (string-content)
-        (bytevector->pointer (string->utf8 (string-copy string-content)))))
+        string-content))
 
     (define pffi-pointer->string
       (lambda (pointer)