diff --git a/collects/srfi/74/blob.scm b/collects/srfi/74/blob.scm index 2cf349745e..ec1bbbb113 100644 --- a/collects/srfi/74/blob.scm +++ b/collects/srfi/74/blob.scm @@ -143,12 +143,12 @@ (cut blob-sint-set! size <> <> <> <>)) (define (make-ref/native base base-ref) - (lambda (endness blob index) + (lambda (blob index) (ensure-aligned index base) (base-ref (endianness native) blob index))) (define (make-set!/native base base-set!) - (lambda (endness blob index val) + (lambda (blob index val) (ensure-aligned index base) (base-set! (endianness native) blob index val))) diff --git a/collects/srfi/doc.txt b/collects/srfi/doc.txt index d5c627cc6c..25aa24aa19 100644 --- a/collects/srfi/doc.txt +++ b/collects/srfi/doc.txt @@ -108,8 +108,11 @@ sub-collection number of the already ported SRFIs: SRFI-57 records.ss 57 SRFI-59 vicinity.ss 59 SRFI-60 60.ss 60 + SRFI-66 66.ss 66 SRFI-67 compare.ss 67 SRFI-69 hash.ss 69 + SRFI-74 74.ss 74 + Notes: ,-------------------- @@ -136,7 +139,7 @@ Notes: `-------------------- ,-------------------- -| *3 This port also provide |promise?| / |srfi-45-promise?|. +| *3 This port also provides |promise?| / |srfi-45-promise?|. `--------------------