1 files changed, 4 insertions, 11 deletions

@@ -1,11 +1,6 @@
-;;; chicanery extras --- extra stuff from ur old pal acdw
-
 (export list-map list-for-each list-append
         map for-each append)
 
-;;; Generalized map, for-each, ...
-;; List versions are renamed `list-<function>'.  Un-prefixed versions work
-;; with any (default) datatype.  TODO: generalize?
 (define list-map map)
 (define list-for-each for-each)
 (define list-append append)
@@ -45,9 +40,6 @@
       (apply bytevector-append collections))
      (else (error "Bad datatype" first)))))
 
-(export ref
-        copy)
-
 ;;; Extended generic functions.
 ;; These functions already have a list- version defined, but no non-prefixed
 ;; one.  So I'm fixing that.
@@ -77,14 +69,12 @@
     (bytevector-copy collection))
    (else (error "Bad datatype" collection))))
 
-;;; Functions that should be in scheme
+;;; Definitions that should be in scheme
 ;; This sections should be as small as possible
 
 (export read-port
         read-port-chunk-size)
 
-(define read-port-chunk-size
-  (make-parameter 512))
 
 (define (%read-port port)
   (let ((chunk-size (read-port-chunk-size)))
@@ -104,6 +94,9 @@
               blank?
               (cons next acc)))))))
 
+(define read-port-chunk-size
+  (make-parameter 512))
+
 (define read-port
   (case-lambda
     (() (%read-port (current-input-port)))