dotfiles/.config/rash/rashrc.rkt

13 lines
323 B
Racket
Raw Normal View History

2023-02-12 11:09:41 +01:00
#lang rash
(require
racket/port
rash/private/rashrc-lib
readline/pread)
(current-prompt-function
(λ (#:last-return-value retval)
(unless (void? retval)
(display ((current-rash-top-level-print-formatter) retval)))
(readline-prompt #{prompt show (if (exn:fail? retval) 1 0) insert |> port->bytes})))