mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-12-13 11:23:05 +01:00
rash config: properly handle exceptions
This commit is contained in:
parent
3c1d8a0555
commit
1e54350a90
1 changed files with 5 additions and 2 deletions
|
@ -5,5 +5,8 @@
|
|||
readline/pread)
|
||||
|
||||
(current-prompt-function
|
||||
(λ ()
|
||||
(readline-prompt #{prompt show 0 insert |> port->bytes})))
|
||||
(λ (#: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})))
|
||||
|
|
Loading…
Reference in a new issue