summaryrefslogtreecommitdiff
path: root/test-suite/standalone/test-language.el
blob: c1f09cc3fca92012ac47b4caeec7fa64a62cc359 (plain)
1
2
3
4
5
6
7
8
9
10
11
;; 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!"))