24 lines
653 B
Scheme
24 lines
653 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(scheme process-context)
|
|
(foo bar)
|
|
(hello world)
|
|
(other hellolib))
|
|
(baz)
|
|
(hello-world)
|
|
|
|
(define l (list "1" "2" "3"))
|
|
(cond-expand
|
|
;; Meevax gives too much args
|
|
;; For this test for now this is okay
|
|
(meevax (when (> (length (command-line)) 3) (write l)))
|
|
;; mit-scheme gives too much args
|
|
;; For this test for now this is okay
|
|
(mit (when (> (length (command-line)) 3) (write l)))
|
|
;; tr7 gives too much args
|
|
;; For this test for now this is okay
|
|
(tr7 (when (> (length (command-line)) 3) (write l)))
|
|
(else (write (list-tail (command-line) 1))))
|
|
|
|
(over-9000)
|