repo.or.cz
/
picobit.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
history
|
raw
|
HEAD
Removed code that dealt with ROM closure, since these don't exist.
[picobit.git]
/
tests
/
test-cond.scm
blob
0fa646cf8471f55de683c0374c0f086fd6ed3f72
1
(display (cond (#f 2) ((= 1 2) 4) (#t 2)))
2
;; if all is false, returns an object, acceptable
3
4
(define x 3)
5
(define y 2)
6
(set! x 5)
7
8
(display (cond ((> y x) "foo")
9
((= 1 2) "bar")
10
(else "baz")))