Merge pull request #609 from yumaikas/master

Change tracev to upscope instead of using let

src/boot/boot.janet

@@ -1113,7 +1113,8 @@
   (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 s (gensym))
-  ~(let [,s ,x]
+  ~(upscope
+     (def ,s ,x)
      (,eprinf ,fmt ',x)
      (,eprintf (,dyn :pretty-format "%q") ,s)
      ,s))

test/suite0007.janet

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