Boolean Shortcircuiting

Dear Forthers,

Is there a way to implement boolean short-circuiting in Forth?

For example:

: bad? ( img -- f )
dup error? if true exit then
dup corrupted? if true exit then
old? if true exit then
false ;

Which seems terribly repetitious to me. But I don't want to / can't
perform CORRUPTED? if ERROR? returns true.

Is there a better way?

Thanks,
Arnold





.