miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added atoms! atom, deref, swap!, literal support

Browse Source
This commit is contained in:
Nathan Braswell
2020-04-23 00:15:39 -04:00
parent 2baad06e8c
commit ae150b17fa
2 changed files with 69 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
bf.kp
View File

@@ -89,6 +89,24 @@
;(def! main (fn* [] (let* (it "asdf") (do (println it) 0))))
;(def! main (fn* [] (let* (it 'sym_baby) (do (println it) 0))))
;(def! main (fn* [] (let* (it [1 2 3]) (do (println it) 0))))
(def! main (fn* [] (let* (it '(1 2 3)) (do (println it) 0))))
;(def! main (fn* [] (let* (it '(1 2 3)) (do (println it) 0))))
;(def! my_str "asdf")
;(def! main (fn* [] (do (println my_str) 0)))
;(def! main (fn* [] (let* (it (atom 7)) (do
; (println it)
; (println (deref it))
; (reset! it 8)
; (println (deref it))
; (deref it)
; ))))
(def! my_atom (atom 5))
(def! main (fn* [] (do
(println my_atom)
(println (deref my_atom))
(reset! my_atom 1337)
(println my_atom)
(println (deref my_atom))
7)))