From 1123d825031b46bf297042f1dfc938c89fbbba42 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Thu, 2 Jun 2022 14:56:13 -0400 Subject: [PATCH] Add conj and assoc --- src/ludus/prelude.clj | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/src/ludus/prelude.clj b/src/ludus/prelude.clj index 94a632d..41ec6f9 100644 --- a/src/ludus/prelude.clj +++ b/src/ludus/prelude.clj @@ -82,6 +82,18 @@ ::data/type ::data/clj :body (fn [ms] (Thread/sleep ms))}) +(def conj- {:name "conj" + ::data/type ::data/clj + :body conj}) + +(def assoc- {:name "assoc" + ::data/type ::data/clj + :body assoc}) + +(def get- {:name "get" + ::data/type ::data/clj + :body get}) + (def prelude {"eq" eq "add" add "print" print- @@ -97,4 +109,7 @@ "and" and- "or" or- "sleep" sleep- + "assoc" assoc- + "conj" conj- + "get" get- }) \ No newline at end of file