mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-22 03:07:41 +00:00
Code Issues 1 Releases Wiki Activity

Support redefinable bindings

Browse Source
This commit is contained in:
Michael Camilleri
2021-12-18 13:05:16 +09:00
parent cddc2a8280
commit 8347439644
5 changed files with 60 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/suite0000.janet
View File

@@ -295,6 +295,19 @@
(++ i))
(assert (= i 6) "when macro"))
# Redefs
(def noredef 0)
(defn noredef-inc [] (+ 1 noredef))
(assert (= 1 (noredef-inc)) "result before redef without :redef")
(def noredef 1)
(assert (= 1 (noredef-inc)) "result after redef without :redef")
(def redef :redef 0)
(defn redef-inc [] (+ 1 redef))
(assert (= 1 (redef-inc)) "result before redef with :redef")
(def redef :redef 1)
(assert (= 2 (redef-inc)) "result before redef with :redef")
# Denormal tables and structs
(assert (= (length {1 2 nil 3}) 1) "nil key struct literal")