Remove outdated files

5 files changed, 0 insertions, 89 deletions

diff --git a/booleans/booleans-test.scm b/booleans/booleans-test.scm
deleted file mode 100644
index 78a78be..0000000
--- a/booleans/booleans-test.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-(use-modules (srfi srfi-64)
-             (booleans))
-
-(test-begin "harness")
-
-
-(test-equal "test-true-inverted-is-false"
-  #f
-  (boolean-invert #t))
-
-(test-equal "test-true-inverted-is-false"
-  #t
-  (boolean-invert #f))
-
-
-(test-end "harness")
diff --git a/booleans/booleans.scm b/booleans/booleans.scm
deleted file mode 100644
index 6b2fe07..0000000
--- a/booleans/booleans.scm
+++ /dev/null
@@ -1,6 +0,0 @@
-(define-module (booleans))
-
-(define-public (boolean-invert bool)
-  "Returns the opposite value of the
-passed in boolean."
-  (not bool))
diff --git a/hello/hello-test.scm b/hello/hello-test.scm
deleted file mode 100644
index 1865112..0000000
--- a/hello/hello-test.scm
+++ /dev/null
@@ -1,20 +0,0 @@
-(use-modules (srfi srfi-64)
-             (hello))
-
-(test-begin "harness")
-
-
-(test-equal "test-hello"
-  "hello world\n"
-  (hi))
-
-(test-equal "test-hello-bd"
-  "hello bd\n"
-  (hi "bd"))
-
-(test-equal "test-hello-db"
-  "hello db\n"
-  (hi "db"))
-
-
-(test-end "harness")
diff --git a/hello/hello.scm b/hello/hello.scm
deleted file mode 100755
index bf8dfa0..0000000
--- a/hello/hello.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-(define-module (hello))
-
-(define GREETING_PREFIX "hello ")
-(define GREETING_SUFFIX "\n")
-(define DEFAULT_ADDRESSEE "world")
-
-
-(define-public hi
-  (lambda* (#:optional name)
-    (string-append GREETING_PREFIX (addressee name) GREETING_SUFFIX)))
-
-(define addressee
-  (lambda (name)
-    (if name
-        name
-        DEFAULT_ADDRESSEE)))
diff --git a/number-guesser.scm b/number-guesser.scm
deleted file mode 100644
index 486eea5..0000000
--- a/number-guesser.scm
+++ /dev/null
@@ -1,31 +0,0 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Example game:                      ;;
-;; scheme@(guile-user)> (start 60 70) ;;
-;; $21 = 65                           ;;
-;; scheme@(guile-user)> (bigger)      ;;
-;; $22 = 68                           ;;
-;; scheme@(guile-user)> (bigger)      ;;
-;; $23 = 69                           ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; also see (info "(guile) Definition")
-
-(define lower 1)
-(define upper 100)
-
-(define (start n m)
-  (set! lower (min n m))
-  (set! upper (max n m))
-  (guess))
-
-;;;; helpers
-(define (guess)
-  (quotient (+ lower upper) 2))
-
-(define (smaller)
-  (set! upper (max lower (- (guess) 1)))
-  (guess))
-
-(define (bigger)
-  (set! lower (min upper (+ (guess) 1)))
-  (guess))