1
0
mirror of https://github.com/janet-lang/janet synced 2025-01-24 06:06:52 +00:00

Remove extra code.

This commit is contained in:
Calvin Rose 2018-08-03 21:51:35 -04:00
parent 169a22f03e
commit 7a7291ac3a

View File

@ -1,5 +1,5 @@
# Copyright 2017-2018 (C) Calvin Rose
(table.setproto @{ 1 2} @{})
(do
(var *should-repl* :private false)
@ -10,7 +10,7 @@
# Flag handlers
(def handlers :private
{"h" (fn @[]
{"h" (fn []
(print "usage: " (get args 0) " [options] scripts...")
(print
`Options are:
@ -54,7 +54,7 @@
(repl nil identity)
(do
(print (string "Dst " VERSION " Copyright (C) 2017-2018 Calvin Rose"))
(repl (fn @[buf p]
(repl (fn [buf p]
(def [line] (parser.where p))
(def prompt (string "dst:" line ":" (parser.state p) "> "))
(getline prompt buf)))))))