mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
13ff681c33
* test-suite/standalone/Makefile.am (top_srcdir): Add `top_srcdir'. (check_SCRIPTS, TESTS): Add `test-language'. (EXTRA_DIST): Add `test-language.el' and `test-language.js'. * test-suite/standalone/test-language, test-suite/standalone/test-language.el, test-suite/standalone/test-language.js: New files.
11 lines
204 B
EmacsLisp
11 lines
204 B
EmacsLisp
;; Sample Elisp code for `test-language'.
|
|
|
|
(defun fib (n)
|
|
"Anything but a fib."
|
|
(if (<= n 1)
|
|
n
|
|
(+ (fib (- n 1))
|
|
(fib (- n 2)))))
|
|
|
|
(or (= 13 (fib 7))
|
|
(error "Something's wrong!"))
|