mirror of
https://github.com/janet-lang/janet
synced 2024-12-26 08:20:27 +00:00
Update older run-context code
This commit is contained in:
parent
3c8930b72b
commit
50df5000c2
@ -1978,7 +1978,7 @@
|
|||||||
(var going true)
|
(var going true)
|
||||||
|
|
||||||
# The parser object
|
# The parser object
|
||||||
(var p (parser/new))
|
(def p (parser/new))
|
||||||
|
|
||||||
# Evaluate 1 source form in a protected manner
|
# Evaluate 1 source form in a protected manner
|
||||||
(defn eval1 [source]
|
(defn eval1 [source]
|
||||||
@ -2020,7 +2020,7 @@
|
|||||||
(if (= (chunks buf p)
|
(if (= (chunks buf p)
|
||||||
:cancel)
|
:cancel)
|
||||||
(do
|
(do
|
||||||
# Nil chunks represents a cancelled form in the REPL, so reset.
|
# A :cancel chunk represents a cancelled form in the REPL, so reset.
|
||||||
(parser/flush p)
|
(parser/flush p)
|
||||||
(buffer/clear buf))
|
(buffer/clear buf))
|
||||||
(do
|
(do
|
||||||
|
Loading…
Reference in New Issue
Block a user