mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
11 lines
337 B
Scheme
11 lines
337 B
Scheme
(define-library (hello)
|
|
(import (scheme base))
|
|
(begin
|
|
(define (main args)
|
|
(write-string "Hello, ")
|
|
(write-string (if (pair? (cdr args)) (cadr args) "world!"))
|
|
(newline))
|
|
(define (bye args)
|
|
(write-string "Goodbye, ")
|
|
(write-string (if (pair? (cdr args)) (cadr args) "world!"))
|
|
(newline))))
|