upscheme/scheme-tests/err.scm

5 lines
99 B
Scheme
Raw Permalink Normal View History

(define (f x) (begin (list-tail '(1) 3) 3))
(f 2)
a
(trycatch a (lambda (e) (write (stacktrace))))