repo.or.cz
/
boalisp.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
dos2unix the files saved on Windows for proper viewing on repo.or.cz
[boalisp.git]
/
tests
/
if.boa
blob
b57bdb5291a8ec32a286b4def1b25113e754f6b6
1
(set! var 23)
2
3
(if var
4
(print "yes")
5
(print "no"))
6
7
(if var
8
(begin
9
(display "foo")
10
(display "bar")))
11
12
(cond ((= var 21)
13
(print "**"))
14
((= var 23)
15
(display "Else")
16
(print "stmt"))
17
((= var 24)
18
(print "**")))
19
20
;; TODO: COND with ELSE