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)))  | 
