janet/examples/error.dst

20 lines
299 B
Plaintext
Raw Normal View History

2018-06-29 05:15:47 +00:00
# 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!"))
2018-06-29 05:15:47 +00:00
(bark (* 2 x))
(bark (* 3 x)))
(defn pupper []
(bork 3)
1)
(do (pupper) 1)