mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-06-18 11:18:49 +02:00
13 lines
323 B
Racket
13 lines
323 B
Racket
#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})))
|