1 files changed, 3 insertions, 6 deletions
diff --git a/examples.scm b/examples.scm
index 3b67f60..1fd453c 100644
--- a/examples.scm
+++ b/examples.scm
@@ -1,8 +1,3 @@
-;; (read-enable 'curly-infix)
-
-;;; Examples:
-;;; These are do in the conext of the optional monad.
-
 (add-to-load-path (dirname (current-filename)))
 
 (use-modules (control monad)
@@ -10,6 +5,8 @@
              (data optional)
              (data writer))
 
+;;; Optional Monad, and do notation
+
 (do x <- (just 10)
     x) ; => 10
 
@@ -24,7 +21,7 @@
     y <- (just 20)
     (+ x y)) ; => 30
 
-;;;
+;;; Writer Monad, and do notation
 
 ;; Int -> Writer Int String
 (define (log-number n)