mirror of https://github.com/janet-lang/janet
12 lines
389 B
Plaintext
12 lines
389 B
Plaintext
# Copyright 2017-2018 (C) Calvin Rose
|
|
(print (string "Janet " janet.version " Copyright (C) 2017-2018 Calvin Rose"))
|
|
|
|
(fiber.new
|
|
(fn [&]
|
|
(repl (fn [buf p]
|
|
(def [line] (parser.where p))
|
|
(def prompt (string "janet:" line ":" (parser.state p) "> "))
|
|
(repl-yield prompt buf)
|
|
buf)))
|
|
:9e) # stop fiber on error signals and user9 signals
|