mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 09:47:17 +00:00
Code Issues 1 Releases Wiki Activity

Expose debugger-env

Browse Source 
This makes it easier/possible to use the debugging
functionality in a more flexible way.
This commit is contained in:
Calvin Rose 2020-04-27 23:32:21 -05:00
parent 8bbb7907d6
commit 67f1872f4a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/boot/boot.janet
View File

@ -2483,8 +2483,11 @@
(set res (debug/step (.fiber)))) (set res (debug/step (.fiber))))
res) res)
(def debugger-env
"An environment that contains dot prefixed functions for debugging."
@{})
(def- debugger-keys (filter (partial string/has-prefix? ".") (keys _env))) (def- debugger-keys (filter (partial string/has-prefix? ".") (keys _env)))
(def- debugger-env @{})
(each k debugger-keys (put debugger-env k (_env k)) (put _env k nil)) (each k debugger-keys (put debugger-env k (_env k)) (put _env k nil))
(put _env 'debugger-keys nil) (put _env 'debugger-keys nil)
@ -2548,8 +2551,6 @@
:on-status (or onsignal (make-onsignal env 1)) :on-status (or onsignal (make-onsignal env 1))
:source "repl"})) :source "repl"}))
(put _env 'debugger-env nil)
### ###
### ###
### CLI Tool Main ### CLI Tool Main