diff options
author | bd <bdunahu@operationnull.com> | 2024-05-18 21:18:24 -0600 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2024-05-18 21:18:24 -0600 |
commit | 5a65e2da159703e20504b7b3a668e65312932394 (patch) | |
tree | 8c4e3520333ae427c65c9679c2d89b24eeb7a5ce /hello | |
parent | 5601c7ce365b32ddf3e150082510660b8e4925c2 (diff) |
Remove outdated files
Diffstat (limited to 'hello')
-rw-r--r-- | hello/hello-test.scm | 20 | ||||
-rwxr-xr-x | hello/hello.scm | 16 |
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))) |