From 8405fc67cffa8d392508a91c8606670c986b6543 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 13 Nov 2018 14:30:13 +0100
Subject: Slight (control monad state) changes.

---
 control/monad/state.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/control/monad/state.scm b/control/monad/state.scm
index 1097567..72a3041 100644
--- a/control/monad/state.scm
+++ b/control/monad/state.scm
@@ -2,12 +2,7 @@
   #:use-module (oop goops)
   #:use-module (ice-9 match)
   #:use-module (control monad)
-  #:export (return-state run-state
-                         get put
-                         ;; TODO
-                         ;; should these even be exported?
-                         define-stateful
-                         define-stateful-method)
+  #:export (return-state run-state get put)
   #:re-export (>>= >>))
 
 
@@ -47,7 +42,7 @@
     (make-state
      (lambda (st) body ...))))
 
-(define-stateful-method ((>>= (st <state>) f) st-list)
+(define-stateful-method ((>>= (st <state>) (f <procedure>)) st-list)
   (let ((new-st-list ((proc st) st-list)))
     (match new-st-list
       ((v _)
-- 
cgit v1.2.3