made zepto prompt and ret use statement counters
This commit is contained in:
6
zeptorc
6
zeptorc
@@ -1,4 +1,6 @@
|
|||||||
(zepto:add-to-path (++ (get-home-dir) "/.zeps/"))
|
(zepto:add-to-path (++ (get-home-dir) "/.zeps/"))
|
||||||
(define col (lambda (x) (color x #{:to-str #t})))
|
(define col (lambda (x) (color x #{:to-str #t})))
|
||||||
(define *prompt* (++ (col :blue) (col :bold) *prompt* (col :reset)))
|
(define (*prompt*)
|
||||||
(define *ret* (++ (col :red) (col :bold) *ret* (col :reset)))
|
(++ (col :blue) (col :bold) "zepto [" (->string *statement-count*) "]> " (col :reset)))
|
||||||
|
(define (*ret*)
|
||||||
|
(++ (col :red) (col :bold) "=[" (->string *statement-count*) "]> " (col :reset)))
|
||||||
|
Reference in New Issue
Block a user