Export list of monad argument names.

The Cantius monad can now be "extended" through creation of a new one that
repeats all its arguments.

1 files changed, 16 insertions, 13 deletions

diff --git a/src/guile/cantius.scm b/src/guile/cantius.scm
index cdf6379..e0db981 100644
--- a/src/guile/cantius.scm
+++ b/src/guile/cantius.scm
@@ -354,19 +354,22 @@
 ;;; Cantius syntactic monad and default values to use as its arguments.
 ;;;
 
-(export $)
-(define-syntactic-monad $
-  cant$resource-roots
-  cant$redirect/normalize-path?
-  cant$redirect/remove-query?
-  cant$default-headers
-  cant$http-code-handlers
-  cant$other-http-codes-handler
-  cant$request
-  cant$body
-  cant$current-path
-  cant$current-endpoint
-  cant$endpoint-matched-path)
+(eval-when (compile load eval)
+  (define-public $-args
+    '(cant$resource-roots
+      cant$redirect/normalize-path?
+      cant$redirect/remove-query?
+      cant$default-headers
+      cant$http-code-handlers
+      cant$other-http-codes-handler
+      cant$request
+      cant$body
+      cant$current-path
+      cant$current-endpoint
+      cant$endpoint-matched-path))
+
+  (export $)
+  (eval `(define-syntactic-monad $ . ,$-args) (current-module)))
 
 (define %default-headers
   '((content-type . (text/plain (charset . "utf-8")))))