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

Play with base ref forms

Browse Source
This commit is contained in:
Scott Richmond 2022-05-18 18:31:11 -04:00
parent 9e25f24b3f
commit fb89508bef
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ludus/interpreter.clj
View File

@ -370,16 +370,10 @@
(def source " (def source "
fn swap! (r, f) -> { ref foo = nil
let val = deref (r) ref bar = nil
let new = f (val)
set! (r, new)
}
ref foo = 0 eq (foo, bar)
swap! (foo, inc)
swap! (foo, inc)
") ")