From bd03b21c4823a17fe031b4e61aea7a123ca91d75 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 18 Mar 2019 18:45:56 +0100
Subject: Remove entire examples directory.

---
 examples/do.scm | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 examples/do.scm

diff --git a/examples/do.scm b/examples/do.scm
deleted file mode 100644
index d758177..0000000
--- a/examples/do.scm
+++ /dev/null
@@ -1,41 +0,0 @@
-(add-to-load-path (dirname (current-filename)))
-
-(use-modules (control monad)
-             (data monoid)
-             (data optional)
-             (data writer))
-
-;;; Optional Monad, and do notation
-
-(do x <- (just 10)
-    x) ; => 10
-
-(do let y = (just 10)
-    x <- y
-    (+ x 5)) ; => 15
-
-(do x <- (nothing)
-    (+ x 5)) ; => [Nothing]
-
-(do x <- (just 10)
-    y <- (just 20)
-    (+ x y)) ; => 30
-
-(do (just 10)
-    (nothing)
-  (just 20)) ; => [Nothing]
-
-;;; Writer Monad, and do notation
-
-;; Int -> Writer Int String
-(define (log-number n)
-  (writer n (format #f "Got nuber: ~a" n)))
-
-(do a <- (log-number 3)
-    b <- (log-number 5)
-    (writer (* a b) ""))
-;; => [Writer 15, "Got nuber: 3Got nuber: 5"]
-
-(do (log-number 3)
-    (log-number 5))
-;; => [Writer 5, "Got nuber: 3Got nuber: 5"]
-- 
cgit v1.2.3