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

Allow all-bindings and dynamics to search specific env

Browse Source
This commit is contained in:
Adam Schwalm 2019-06-02 10:07:54 -05:00
parent 0a9715a94c
commit 64bf52372a
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/boot/boot.janet
View File

@ -1820,8 +1820,8 @@ _fiber is bound to the suspended fiber
:source "repl"}))
(defn- env-walk
[pred]
(def env (fiber/getenv (fiber/current)))
[pred &opt env]
(default env (fiber/getenv (fiber/current)))
(def envs @[])
(do (var e env) (while e (array/push envs e) (set e (table/getproto e))))
(def ret-set @{})
@ -1832,14 +1832,16 @@ _fiber is bound to the suspended fiber
(sort (keys ret-set)))
(defn all-bindings
"Get all symbols available in the current environment."
[]
(env-walk symbol?))
"Get all symbols available in an enviroment. Defaults to the current
fiber's environment."
[&opt env]
(env-walk symbol? env))
(defn all-dynamics
"Get all dynamic bindings in the current fiber."
[]
(env-walk keyword?))
"Get all dynamic bindings in an environment. Defaults to the current
fiber's environment."
[&opt env]
(env-walk keyword? env))
# Clean up some extra defs
(put _env 'process/opts nil)