We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents c65b370 + d233338 commit 0baa733Copy full SHA for 0baa733
exercises/hello-world/example.scm
@@ -1,7 +1,4 @@
1
(define-module (hello-world)
2
#:export (hello))
3
4
-(define hello
5
- (lambda* (#:optional name)
6
- (let ((target (or name "World")))
7
- (string-concatenate (list "Hello, " target "!")))))
+(define (hello) "Hello, World!")
exercises/hello-world/hello-world-test.scm
@@ -10,12 +10,8 @@
10
11
(test-begin "hello-world")
12
13
-(test-assert "Called with no args returns hello world"
+(test-assert "Say Hi!"
14
(equal? (hello)
15
"Hello, World!"))
16
17
-(test-assert "Called with an arg returns hello arg"
18
- (equal? (hello "exercism")
19
- "Hello, exercism!"))
20
-
21
(test-end "hello-world")
0 commit comments