mirror of https://github.com/janet-lang/janet
13 lines
407 B
Clojure
13 lines
407 B
Clojure
# Copyright 2017-2019 (C) Calvin Rose
|
|
|
|
(print (string "Janet " janet/version "-" janet/build " Copyright (C) 2017-2019 Calvin Rose"))
|
|
(setdyn :pretty-format "%.20P")
|
|
|
|
(fiber/new (fn webrepl []
|
|
(repl (fn get-line [buf p]
|
|
(def offset (parser/where p))
|
|
(def prompt (string "janet:" offset ":" (parser/state p) "> "))
|
|
(repl-yield prompt buf)
|
|
(yield)
|
|
buf))))
|