HCoop
/
bpt
/
guile.git
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(incremental) |
history
|
HEAD
Merge commit '8ca97482b01cf1a6aa538cc5a2d1f71fb60f080c'
[bpt/guile.git]
/
test-suite
/
standalone
/
test-language.el
Commit
Line
Data
13ff681c
LC
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!"))