summaryrefslogtreecommitdiff
path: root/hello
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2024-05-18 21:18:24 -0600
committerbd <bdunahu@operationnull.com>2024-05-18 21:18:24 -0600
commit5a65e2da159703e20504b7b3a668e65312932394 (patch)
tree8c4e3520333ae427c65c9679c2d89b24eeb7a5ce /hello
parent5601c7ce365b32ddf3e150082510660b8e4925c2 (diff)
Remove outdated files
Diffstat (limited to 'hello')
-rw-r--r--hello/hello-test.scm20
-rwxr-xr-xhello/hello.scm16
2 files changed, 0 insertions, 36 deletions
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)))