mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-13 00:50:26 +00:00
Code Issues 1 Releases Wiki Activity

Add curenv to core.

Browse Source
This commit is contained in:
Calvin Rose 2020-08-22 10:16:14 -05:00
parent 5377e10532
commit f7c556ed8d
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -2,6 +2,7 @@
All notable changes to this project will be documented in this file. All notable changes to this project will be documented in this file.
## Unreleased - ??? ## Unreleased - ???
- Add `(curenv)`.
- Change `net/read`, `net/chunk`, and `net/write` to raise errors in the case of failures. - Change `net/read`, `net/chunk`, and `net/write` to raise errors in the case of failures.
- Add `janet_continue_signal` to C API. This indirectly enables C functions that yield to the event loop - Add `janet_continue_signal` to C API. This indirectly enables C functions that yield to the event loop
to raise errors or other signals. to raise errors or other signals.

8
src/boot/boot.janet
View File

@ -2069,6 +2069,14 @@
(if ec "\e[0m" ""))) (if ec "\e[0m" "")))
(eflush)) (eflush))
(defn curenv
"Get the current environment table. Same as (fiber/getenv (fiber/current)). If n
is provided, gets the nth prototype of the environment table."
[&opt n]
(var e (fiber/getenv (fiber/current)))
(if n (repeat n (if (= nil e) (break)) (set e (table/getproto e))))
e)
(defn run-context (defn run-context
"Run a context. This evaluates expressions in an environment, "Run a context. This evaluates expressions in an environment,
and is encapsulates the parsing, compilation, and evaluation. and is encapsulates the parsing, compilation, and evaluation.