Add several functions to the prelude

src/ludus/prelude.clj

@@ -10,9 +10,33 @@
           ::data/type ::data/clj
           :body +})
 
-(def panic {:name "panic"
+(def sub {:name "sub"
-            ::data/type ::data/clj
+          ::data/type ::data/clj
-            :body (fn [& args] (throw (ex-info "Ludus panicked!" {:args args})))})
+          :body -})
+
+(def mult {:name "mult"
+           ::data/type ::data/clj
+           :body *})
+
+(def div {:name "div"
+          ::data/type ::data/clj
+          :body /})
+
+(def inc {:name "inc"
+          ::data/type ::data/clj
+          :body inc})
+
+(def dec {:name "dec"
+          ::data/type ::data/clj
+          :body dec})
+
+(def ld-not {:name "not"
+             ::data/type ::data/clj
+             :body not})
+
+(def panic! {:name "panic!"
+             ::data/type ::data/clj
+             :body (fn [& args] (throw (ex-info "Ludus panicked!" {:args args})))})
 
 (def print {:name "print"
             ::data/type ::data/clj
@@ -22,5 +46,11 @@
 
 (def prelude {"eq" eq
               "add" add
-              "panic" panic
+              "panic!" panic!
-              "print" print})
+              "print" print
+              "sub" sub
+              "mult" mult
+              "div" div
+              "inc" inc
+              "dec" dec
+              "not" not})