Ark/leporello-js
1
0
Fork 0
mirror of https://github.com/leporello-js/leporello-js synced 2026-01-13 13:04:30 -08:00
Code Issues Packages Projects Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
Dmitry Vasilev
2022-12-07 05:06:15 +08:00
parent 9e9400ab24
commit 707c34bc66
8 changed files with 178 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/cmd.js
View File

@@ -220,15 +220,6 @@ const eval_modules_finished = (state, result, node, toplevel) => {
if(toplevel) {
if(node == state.parse_result.modules[root_calltree_module(next)]) {
active_calltree_node = root_calltree_node(next)
return add_frame(
default_expand_path(
expand_path(
next,
active_calltree_node
)
),
active_calltree_node,
)
} else {
active_calltree_node = null
}
@@ -244,11 +235,13 @@ const eval_modules_finished = (state, result, node, toplevel) => {
}
}
let result_state
if(active_calltree_node == null) {
const {node, state: next2} = initial_calltree_node(next)
return set_active_calltree_node(next2, null, node)
result_state = set_active_calltree_node(next2, null, node)
} else {
return add_frame(
result_state = add_frame(
default_expand_path(
expand_path(
next,
@@ -258,6 +251,10 @@ const eval_modules_finished = (state, result, node, toplevel) => {
active_calltree_node,
)
}
return result_state.eval_modules_state == null
? result_state
: {...result_state, eval_modules_state: null}
}
const input = (state, code, index) => {