mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-05-05 17:04:15 +00:00
Code Issues 1 Releases Wiki Activity

Remove extra code.

Browse Source
This commit is contained in:
Calvin Rose 2018-08-03 21:51:35 -04:00
parent 169a22f03e
commit 7a7291ac3a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mainclient/init.dst
View File

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