janet/examples/error.dst

# 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)