Racket on better shape now

Makefile

@@ -57,7 +57,7 @@ documentation:
 test/import.scm: clean build
 	${SASH} $@
 	${GUILE} $@ 
-	#${RACKET} $@
+	${RACKET} $@
 	${STKLOS} $@
 	${KAWA} $@
 	${CYCLONE} $@ && test/import
@@ -66,7 +66,8 @@ test/import.scm: clean build
 	#${GERBIL} $@
 
 test/import.scm: clean build
-	${GAMBIT} -exe $@ && ./test/import
+	${RACKET} $@
+	#${GAMBIT} -exe $@ && ./test/import
 
 test/pffi-define.scm: clean build
 	${SASH} $@
@@ -75,7 +76,8 @@ test/pffi-define.scm: clean build
 	${CHICKEN} -L -lcurl $@ && ./test/pffi-define
 
 test/pffi-define.scm: clean build
-	${CYCLONE} -CLNK -lcurl $@ && test/pffi-define
+	${RACKET} $@
+	#${CYCLONE} -CLNK -lcurl $@ && test/pffi-define
 
 test/size-of.scm:
 	${SASH} $@

retropikzel/pffi/v0-1-0/compiled/main_rkt.dep

@@ -0,0 +1 @@
+("8.12" ta6le ("ef25d0339315600c996485e29d2d36b0be50ef74" . "87ea6db5c29da02402ccf3308ea25984d84f8e9f") (collects #"r7rs" #"base.rkt") (collects #"r7rs" #"file.rkt") (collects #"r7rs" #"lang" #"reader.rkt") (collects #"r7rs" #"main.rkt") (collects #"r7rs" #"process-context.rkt") (collects #"r7rs" #"write.rkt") (collects #"racket" #"base.rkt") (collects #"racket" #"runtime-config.rkt") (collects #"retropikzel" #"pffi" #"v0-1-0" #"racket.rkt"))

retropikzel/pffi/v0-1-0/compiled/racket_rkt.dep

@@ -0,0 +1 @@
+("8.12" ta6le ("213d7907ee3cf2051004e3be2f9a67102c0176ce" . "c6039c9fe52ff5953361b25f7570ae33857df055") (collects #"compatibility" #"mlist.rkt") (collects #"ffi" #"unsafe.rkt") (collects #"r7rs" #"base.rkt") (collects #"r7rs" #"file.rkt") (collects #"r7rs" #"lang" #"reader.rkt") (collects #"r7rs" #"main.rkt") (collects #"r7rs" #"process-context.rkt") (collects #"r7rs" #"write.rkt") (collects #"racket" #"base.rkt") (collects #"racket" #"runtime-config.rkt"))

retropikzel/pffi/v0-1-0/main.rkt

@@ -22,6 +22,7 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
+              (only (racket base) system-type)
               (retropikzel pffi v0-1-0 racket)))
     (stklos
       (import (scheme base)

retropikzel/pffi/v0-1-0/main.scm

@@ -21,6 +21,7 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
+              (only (racket base) system-type)
               (retropikzel pffi v0-1-0 racket)))
     (stklos
       (import (scheme base)

retropikzel/pffi/v0-1-0/main.sld

@@ -21,6 +21,7 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
+              (only (racket base) system-type)
               (retropikzel pffi v0-1-0 racket)))
     (stklos
       (import (scheme base)

retropikzel/pffi/v0-1-0/racket.rkt

@@ -1,10 +1,11 @@
+#lang r7rs
+
 (define-library
   (retropikzel pffi v0-1-0 racket)
   (import (scheme base)
           (scheme write)
           (scheme file)
           (scheme process-context)
-          (only (racket base) system-type)
           (compatibility mlist)
           (ffi unsafe))
   (export pffi-shared-object-load
@@ -85,11 +86,14 @@
 
     (define pffi-pointer->bytevector
       (lambda (pointer size)
-        (pointer->bytevector pointer size)))
+        #f
+        ;(pointer->bytevector pointer size)
+
+        ))
 
     (define pffi-shared-object-load
-      (lambda header path)
+      (lambda (header path)
-      (ffi-lib path))
+        (ffi-lib path)))
 
     (define pffi-pointer-free
       (lambda (pointer)

test/pffi-define.scm

@@ -9,7 +9,7 @@
 (display libcurl)
 (newline)
 
-(pffi-define 'curl-version libcurl 'curl_version 'string (list))
+(pffi-define curl-version libcurl 'curl_version 'string (list))
 
 (display "=================")
 (newline)