Re: [Chicken-users] catching exceptions

[F. Wittenberger]

Hi all,

continuing my experiments to catch exceptions in chicken, I've been
working out a more core-chicken-only example.

> > > Let's see.  Is this correct as a minimal example?
> > > --- %< tg.scm ----
> > > (require-extension srfi-34)
> > > (print (guard (ex (else 'success)) (call-with-input-string ")" read)))
> > > --- %< ----
> > 
> > no, for two reasons:
> > first, you need to (require-extension ports) for call-with-input-string.

Now I tried:

--- %< tg.scm ----
(require-extension ports)
(print (condition-case
        (call-with-input-string ")" read)
        (var () 'condition-case-does-a-better-job-than-guard)))
--- %< ----

And here the result:

$ csc -o tg tg.scm
$ ./tg 
Error: unexpected list terminator: #\)

        Call history:

        ##sys#require           
        call-with-current-continuation          
        with-exception-handler          
        ##sys#call-with-values          
        call-with-input-string                  <--

Looks as if condition-case is - too - unable to catch the exception.

Did I still do anything wrong?

best regards

/Jörg