mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-04-25 12:13:15 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #609 from yumaikas/master

Browse Source 
Change tracev to upscope instead of using let
This commit is contained in:
Calvin Rose 2021-01-22 19:02:27 -06:00 committed by GitHub
commit dd8de1e9ac
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/boot/boot.janet
View File

@ -1113,7 +1113,8 @@
(def fmt-2 (if (or (neg? l) (neg? c)) ":" (string/format " on line %d, column %d:" l c))) (def fmt-2 (if (or (neg? l) (neg? c)) ":" (string/format " on line %d, column %d:" l c)))
(def fmt (string fmt-1 fmt-2 " %j is ")) (def fmt (string fmt-1 fmt-2 " %j is "))
(def s (gensym)) (def s (gensym))
~(let [,s ,x] ~(upscope
(def ,s ,x)
(,eprinf ,fmt ',x) (,eprinf ,fmt ',x)
(,eprintf (,dyn :pretty-format "%q") ,s) (,eprintf (,dyn :pretty-format "%q") ,s)
,s)) ,s))

4
test/suite0007.janet
View File

@ -320,4 +320,8 @@
(array/push a x)) (array/push a x))
(assert (deep= (range 4) a) "eachk 1") (assert (deep= (range 4) a) "eachk 1")
(tracev (def my-unique-var-name true))
(assert my-unique-var-name "tracev upscopes")
(end-suite) (end-suite)