HCoop
/
bpt
/
guile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Merge commit 'fb7dd00169304a5922838e4d2f25253640a35def'
[bpt/guile.git]
/
test-suite
/
standalone
/
test-language.el
1
;; Sample Elisp code for `test-language'.
2
3
(
defun
fib
(
n
)
4
"Anything but a fib."
5
(
if
(<=
n
1
)
6
n
7
(+ (
fib
(
-
n
1
))
8
(
fib
(
-
n
2
)))))
9
10
(
or
(=
13
(
fib
7
))
11
(
error
"Something's wrong!"
))