1 files changed, 3 insertions, 0 deletions
diff --git a/data/stack.scm b/data/stack.scm
index c28d648..d470394 100644
--- a/data/stack.scm
+++ b/data/stack.scm
@@ -1,4 +1,5 @@
 (define-module (data stack)
+  #:export (pop peek push)
   #:use-module (control monad)
   #:use-module (control monad state))
 
@@ -6,6 +7,8 @@
 ;;; in action. These functions assume that they are in a
 ;;; (state list) monad. But dynamic types!
 
+;;; TODO test these for empty stack
+
 (define (pop)
   (do st <- (get)
       let top = (car st)