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

Make top level vars reuse ref cell when redefined at the top level.

Browse Source 
This improves the repl experience while not messing with existing code
very much, if at all.
This commit is contained in:
Calvin Rose
2022-01-08 10:57:14 -06:00
parent 07ec89276b
commit 5b5a7e5a24
4 changed files with 23 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/suite0000.janet
View File

@@ -302,17 +302,7 @@
(assert (= 1 (staticdef1-inc)) "before redefinition without :redef")
(def staticdef1 1)
(assert (= 1 (staticdef1-inc)) "after redefinition without :redef")
(def dynamicdef1 :redef 0)
(defn dynamicdef1-inc [] (+ 1 dynamicdef1))
(assert (= 1 (dynamicdef1-inc)) "before redefinition with :redef")
(def dynamicdef1 :redef 1)
(assert (= 2 (dynamicdef1-inc)) "after redefinition with :redef")
(setdyn :redef true)
(def staticdef2 {:redef false} 0)
(defn staticdef2-inc [] (+ 1 staticdef2))
(assert (= 1 (staticdef2-inc)) "before redefinition with :redef false")
(def staticdef2 {:redef false} 1)
(assert (= 1 (staticdef2-inc)) "after redefinition with :redef false")
(def dynamicdef2 0)
(defn dynamicdef2-inc [] (+ 1 dynamicdef2))
(assert (= 1 (dynamicdef2-inc)) "before redefinition with dyn :redefs")