6 files changed, 33 insertions, 16 deletions

@@ -4,7 +4,8 @@ Copyright (C) Case Duckworth under the terms of the
 
 Permission to use, distribute, modify, or otherwise interact with this software
 is up to the good Lord, who in Their wisdom makes all things possible.  I really
-recommend you take it up with Them whether you should use this software for any reason, including incorporating this software into your project.
+recommend you take it up with Them whether you should use this software for any
+reason, including incorporating this software into your project.
 
 This software comes with no warranties from the copyright holder; I cannot speak
 for God.
@@ -1,13 +1,16 @@
 # chicanery
 ## this makefile exists only to ... make ... cleaning up easier, really.
 
-.PHONY: build install clean
+NAME = chicanery
 
+.PHONY: build
 build:
         chicken-install -n
 
+.PHONY: install
 install:
         chicken-install
 
+.PHONY: clean
 clean:
-        rm -f *.sh *.import.* *.inline *.link *.o *.so *.types
+        rm -f $(NAME) *.sh *.import.* *.inline *.link *.o* *.so *.types *.c
@@ -46,4 +46,4 @@ Other extras include
 
 ## License
 
-This software is licensed under the GWL, v. 1.0.  See COPYING for details.
+This software is licensed under the GWL, v.  1.0.  See [COPYING](https://git.acdw.net/chicanery/tree/COPYING) for details.
@@ -0,0 +1,20 @@
+;;; chicanery/impl/chicken -*- geiser-scheme-implementation: chicken -*-
+
+(module (chicanery base) ()
+  (import-for-syntax r7rs)
+  (import scheme (chicken module))
+  (reexport (scheme base)
+            (scheme case-lambda)
+            (scheme char)
+            (scheme complex)
+            (scheme cxr)
+            (scheme eval)
+            (scheme file)
+            (scheme inexact)
+            (scheme lazy)
+            (scheme load)
+            (scheme process-context)
+            (scheme read)
+            (scheme repl)
+            (scheme time)
+            (scheme write)))
@@ -2,7 +2,7 @@
 
 ((synopsis "Subtly breaking scheme expectations.")
  (author "Case Duckworth")
- (version "0.2.0")
+ (version "0.3.0")
  (license "God Willing License")
  (category lang-exts)
  (dependencies r7rs utf8)
@@ -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)))