Hello to all,
I'am defining my own language on top of chicken and thus defining my own repl. A
condition-case allow to catch the scheme-level erros and thus to stay in my
repl. But my question is : how to print detailled scheme-level errors (given by
csi) in the condition-case. The only thing i am able to do is to print the
problematic input. The code of my repl is given at the end.
thanks for your help,
Fred
ps : the code :
(define (to-pise)
(print "Welcome to pise")
(print "")
(let loop ()
(let ((input (read-until-newline)))
(if (not (equal? input "bye\n"))
(if (equal? input "")
(loop)
(begin
(condition-case
(eval-print input)
(ex (exn) (begin
(print "error in : " input)
(newline)))
(ex () (print "another error")))
(loop)))))))