From e0cc3727dcce51d66aa71e9907635dd528b13611 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 25 Jan 2025 13:09:37 +0200
Subject: [PATCH] Updating readme

---
 README.md                 | 23 ++++++++++++++---
 retropikzel/r7rs-pffi.sld | 52 ++++++---------------------------------
 2 files changed, 28 insertions(+), 47 deletions(-)

diff --git a/README.md b/README.md
index 5114363..434e41c 100644
--- a/README.md
+++ b/README.md
@@ -34,8 +34,27 @@ For documentation run mkdocs serve or see docs/.
 Currently the interface of the library is in okay shape. It propably will not change much but no
 guarantees are being made just yet.
 
+## Implementation status
+
+### Alpha
+
+Anything not in beta or done, not recommended to use.
+
+### Beta
+
+Usage can be started but might still be quite buggy.
+
+- Guile
+- Sagittarius
+- Racket
+
+### Done
+
+Usage recommended.
+
 ## Implementation table
 
+
 |                                 | Chibi | Chicken 5 | Cyclone |  Gambit | Gauche | Gerbil | Guile | Kawa | Larceny | Mosh | Racket | Sagittarius | Skint | STklos | tr7 | Ypsilon |
 | ------------------------------- | ----- | --------- | ------- | ------- | ------ | ------ | ----- | ---- | ------- | ---- | ------ | ----------- | ----- | ------ | --- | ------- |
 | pffi-init                       | X     | X         | X       | X       | X      | X      | X     | X    | X       | X    | X      | X           | X     | X      |     |         |
@@ -58,9 +77,7 @@ guarantees are being made just yet.
 | pffi-struct-get                 | X     | X         | X       | X       | X      | X      | X     | X    | X       | X    | X      | X           | X     | X      | X   | X       |
 | pffi-struct-set!                | X     | X         | X       | X       | X      | X      | X     | X    | X       | X    | X      | X           | X     | X      | X   | X       |
 | pffi-define                     | X     | X         | X       |         |        |        | X     | X    |         | X    | X      | X           |       |        |     |         |
-| pffi-define-callback            | X     | X         |         |         |        |        | X     |      |         | X    | X      | X           |       |        |     |         |
-| pffi-pointer-address            | X     | X         |         |         |        |        | X     |      |         |      | X      | X           |       |        |     |         |
-| pffi-pointer-dereference        | X     |           |         |         |        |        | X     | X    |         |      | X      | X           |       |        |     |         |
+| pffi-define-callback            |       | X         |         |         |        |        | X     |      |         | X    | X      | X           |       |        |     |         |
 
 ### Usage notes
 
diff --git a/retropikzel/r7rs-pffi.sld b/retropikzel/r7rs-pffi.sld
index ab0f3ac..c42bd99 100644
--- a/retropikzel/r7rs-pffi.sld
+++ b/retropikzel/r7rs-pffi.sld
@@ -32,8 +32,6 @@
               pffi-struct-set!
               pffi-define
               pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               )
       (include-shared "r7rs-pffi/r7rs-pffi-chibi"))
     (chicken5
@@ -68,10 +66,7 @@
               pffi-struct-get
               pffi-struct-set!
               pffi-define
-              pffi-define-callback
-              pffi-pointer-address
-              pffi-pointer-dereference
-              ))
+              pffi-define-callback))
      (chicken6
       (import (scheme base)
               (scheme write)
@@ -104,10 +99,7 @@
               pffi-struct-get
               pffi-struct-set!
               pffi-define
-              pffi-define-callback
-              pffi-pointer-address
-              pffi-pointer-dereference
-              ))
+              pffi-define-callback))
     (cyclone
       (import (scheme base)
               (scheme write)
@@ -138,8 +130,6 @@
               pffi-struct-set!
               pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               ))
     (gambit
       (import (scheme base)
@@ -170,8 +160,6 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               ))
     (gauche
       (import (scheme base)
@@ -201,8 +189,6 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               ))
     (gerbil
       (import (scheme base)
@@ -232,8 +218,6 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               ))
     (guile
       (import (scheme base)
@@ -266,8 +250,7 @@
               pffi-struct-set!
               pffi-define
               pffi-define-callback
-              pffi-pointer-address
-              pffi-pointer-dereference))
+              ))
     (kawa
       (import (scheme base)
               (scheme write)
@@ -296,8 +279,7 @@
               pffi-struct-set!
               pffi-define
               pffi-define-callback
-              ;pffi-pointer-address
-              pffi-pointer-dereference))
+              ))
     (larceny
       (import (scheme base)
               (scheme write)
@@ -332,10 +314,7 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
-              )
-      )
+              ))
     (mosh
       (import (scheme base)
               (scheme write)
@@ -364,10 +343,7 @@
               pffi-struct-get
               pffi-struct-set!
               pffi-define
-              pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
-              ))
+              pffi-define-callback))
     (racket
       (import (scheme base)
               (scheme write)
@@ -400,9 +376,7 @@
               pffi-struct-get
               pffi-struct-set!
               pffi-define
-              pffi-define-callback
-              pffi-pointer-address
-              pffi-pointer-dereference))
+              pffi-define-callback))
     (sagittarius
       (import (scheme base)
               (scheme write)
@@ -432,9 +406,7 @@
               pffi-struct-get
               pffi-struct-set!
               pffi-define
-              pffi-define-callback
-              pffi-pointer-address
-              pffi-pointer-dereference))
+              pffi-define-callback))
     (skint
       (import (scheme base)
               (scheme write)
@@ -463,8 +435,6 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               ))
     (stklos
       (import (scheme base)
@@ -495,8 +465,6 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               ))
     (tr7
       (import (scheme base)
@@ -526,8 +494,6 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
               ))
     (ypsilon
       (import (scheme base)
@@ -557,8 +523,6 @@
               pffi-struct-set!
               ;pffi-define
               ;pffi-define-callback
-              ;pffi-pointer-address
-              ;pffi-pointer-dereference
         ))
     (else (error "Unsupported implementation")))
   (cond-expand