Update location of current file in run-context
(var where default-where)
+ (unless (= where "<anonymous>") (put env :current-file where))
+
# Evaluate 1 source form in a protected manner
(def lints @[])
(defn eval1 [source &opt l c]
[:source new-where]
(if (string? new-where)
+ (do
(set where new-where)
- (set where default-where))
+ (put env :current-file new-where))
+ (do
+ (set where default-where)
+ (put env :current-file nil)))
(do
(var pindex 0)
