diff --git a/exercises/hello-world/example.scm b/exercises/hello-world/example.scm index be232dbe..23f8be30 100644 --- a/exercises/hello-world/example.scm +++ b/exercises/hello-world/example.scm @@ -1,7 +1,4 @@ (define-module (hello-world) #:export (hello)) -(define hello - (lambda* (#:optional name) - (let ((target (or name "World"))) - (string-concatenate (list "Hello, " target "!"))))) +(define (hello) "Hello, World!") diff --git a/exercises/hello-world/hello-world-test.scm b/exercises/hello-world/hello-world-test.scm index e3ac5952..61af5b46 100644 --- a/exercises/hello-world/hello-world-test.scm +++ b/exercises/hello-world/hello-world-test.scm @@ -10,12 +10,8 @@ (test-begin "hello-world") -(test-assert "Called with no args returns hello world" +(test-assert "Say Hi!" (equal? (hello) "Hello, World!")) -(test-assert "Called with an arg returns hello arg" - (equal? (hello "exercism") - "Hello, exercism!")) - (test-end "hello-world")