mirror of
https://github.com/janet-lang/janet
synced 2024-12-01 04:19:55 +00:00
20 lines
299 B
Plaintext
20 lines
299 B
Plaintext
# An example file that errors out. Run with ./dst examples/error.dst
|
|
# to see stack trace for runtime errors.
|
|
|
|
(defn bork [x]
|
|
|
|
(defn bark [x]
|
|
(print "Woof!")
|
|
(print x)
|
|
(error x)
|
|
(print "Woof!"))
|
|
|
|
(bark (* 2 x))
|
|
(bark (* 3 x)))
|
|
|
|
(defn pupper []
|
|
(bork 3)
|
|
1)
|
|
|
|
(do (pupper) 1)
|