diff --git a/README.md b/README.md index 63c8033..3343cf9 100644 --- a/README.md +++ b/README.md @@ -41,15 +41,15 @@ guarantees are being made just yet. | | Chibi | Chicken | Cyclone | Gambit | Gauche | Gerbil | Guile | Kawa | Mosh | Racket | Sagittarius | Skint | STklos | tr7 | | ------------------------------- | ----- | ------- | ------- | ------- | ------ | ------ | ----- | ---- | ---- | ------ | ----------- | ----- | ------ | --- | -| pffi-init | X | X | X | | | | X | X | X | X | X | | | | -| pffi-size-of | X | X | X | | | | X | X | X | X | X | | | | -| pffi-shared-object-auto-load | X | X | X | | | | X | X | X | X | X | | | | -| pffi-shared-object-load | X | X | X | | | | X | X | X | X | X | | | | -| pffi-pointer-null | X | X | X | | | | X | X | X | X | X | | | | -| pffi-pointer-null? | X | X | X | | | | X | X | X | X | X | | | | -| pffi-pointer-allocate | X | X | X | | | | X | X | X | X | X | | | | -| pffi-pointer? | X | X | X | | | | X | X | X | X | X | | | | -| pffi-pointer-free | X | X | X | | | | X | X | X | X | X | | | | +| pffi-init | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-size-of | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-shared-object-auto-load | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-shared-object-load | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-pointer-null | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-pointer-null? | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-pointer-allocate | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-pointer? | X | X | X | | | | X | X | X | X | X | | X | | +| pffi-pointer-free | X | X | X | | | | X | X | X | X | X | | X | | | pffi-pointer-set! | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer-get | X | X | X | | | | X | X | X | X | X | | | | | pffi-string->pointer | X | X | X | | | | X | X | X | X | X | | | | diff --git a/test.scm b/test.scm index 4901653..dbfc288 100644 --- a/test.scm +++ b/test.scm @@ -62,7 +62,6 @@ (assert equal? (number? size-int8) #t) (assert = size-int8 1) -#| (define size-uint8 (pffi-size-of 'uint8)) (debug size-uint8) (assert equal? (number? size-uint8) #t) @@ -271,7 +270,6 @@ (debug (pffi-pointer-get set-pointer 'double offset)) (assert = (pffi-pointer-get set-pointer 'double offset) 1.5) - ;; pffi-string->pointer (print-header 'pffi-string->pointer) @@ -399,5 +397,4 @@ (pffi-pointer-get array 'int (* (pffi-size-of 'int) 2)))) (newline) -|# (exit 0)