twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Add panic

Browse Source
This commit is contained in:
Scott Richmond 2022-03-20 16:33:59 -04:00
parent 0f2e30a8de
commit 1d9559402c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ludus/interpreter.clj
View File

@ -147,7 +147,7 @@
(def panic { (def panic {
:name "panic" :name "panic"
::ast/type ::ast/clj ::ast/type ::ast/clj
:body (fn [msg & _] (throw (ex-info msg {}))) :body (fn [& args] (throw (ex-info "Ludus panicked!" {:args args})))
}) })
(def prelude {"eq" eq "add" add "panic" panic}) (def prelude {"eq" eq "add" add "panic" panic})
@ -255,7 +255,7 @@
(do (do
(def source " (def source "
add (1, 2, 3) if true then :yay else panic (\"whoops\")
") ")