どうも作りにくいときが有るなあと思っていたんだけど今日気づいた。
確かSchemeってatom?があるはずだけどGaucheにはない?
仕方がないので作ってみる。
とりあえずこんな感じでOKかな。
(define (atom? lis) (not (list? lis)))
$ gosh
gosh> (define (atom? lis) (not (list? lis)))
atom?
gosh> (atom? `(1 2 3))
#f
gosh> (atom? `())
#f
gosh> (atom? 1)
#t
多分有っていると思うけど。
こんなんでいいのかなあ。
