made zepto prompt and ret use statement counters

This commit is contained in:
hellerve
2016-05-19 17:07:22 +02:00
parent 1adbf7d424
commit ea4233defb

View File

@@ -1,4 +1,6 @@
(zepto:add-to-path (++ (get-home-dir) "/.zeps/"))
(define col (lambda (x) (color x #{:to-str #t})))
(define *prompt* (++ (col :blue) (col :bold) *prompt* (col :reset)))
(define *ret* (++ (col :red) (col :bold) *ret* (col :reset)))
(define (*prompt*)
(++ (col :blue) (col :bold) "zepto [" (->string *statement-count*) "]> " (col :reset)))
(define (*ret*)
(++ (col :red) (col :bold) "=[" (->string *statement-count*) "]> " (col :reset)))