1
0
mirror of https://github.com/janet-lang/janet synced 2024-06-25 06:33:16 +00:00

Update older run-context code

This commit is contained in:
LouisJackman 2020-05-21 18:47:47 +01:00
parent 3c8930b72b
commit 50df5000c2
No known key found for this signature in database
GPG Key ID: C83A456999EEBC34

View File

@ -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