- `(selfcall
- (var (id ,(convert id)))
- (try
- ,(convert-block body t))
- (catch (|cf|)
- (if (and (== (get |cf| "type") "catch")
- (== (get |cf| "id") id))
- ,(if *multiple-value-p*
- `(return (method-call |values| "apply" this (call |forcemv| (get |cf| "values"))))
- `(return (method-call |pv| "apply" this (call |forcemv| (get |cf| "values")))))
- (throw |cf|)))))
+ (let ((values (if *multiple-value-p* '|values| '|pv|)))
+ `(selfcall
+ (var (id ,(convert id)))
+ (try
+ ,(convert-block body t))
+ (catch (cf)
+ (if (and (instanceof cf |CatchNLX|) (== (get cf "id") id))
+ (return (method-call ,values "apply" this (call |forcemv| (get cf "values"))))
+ (throw cf))))))