Testing, small typo fix

This commit is contained in:
Scott Richmond 2022-05-19 16:58:13 -04:00
parent 959927f7ce
commit ee4438bf1e

View File

@ -12,7 +12,7 @@
;; it's got runtime checking ;; it's got runtime checking
;; we should be able to do these checks statically ;; we should be able to do these checks statically
;; that's for later, tho ;; that's for later, tho
(defn- resolve-word[word ctx-vol] (defn- resolve-word [word ctx-vol]
(let [ctx @ctx-vol] (let [ctx @ctx-vol]
(if (contains? ctx word) (if (contains? ctx word)
(get ctx word) (get ctx word)
@ -405,9 +405,22 @@
(def source " (def source "
let foo = :bar let mytest = {
fn even {
(0) -> true
(n) -> odd (dec (n))
}
fn foof () -> panic! (:oops) fn odd {
(0) -> false
(n) -> even (dec (n))
}
@{odd, even}
}
mytest :odd (1)
mytest :even (955)
") ")