File psl-1983/tests/mini-error-errorset.red artifact a48d27fb23 part of check-in ed4c581dbb


% MINI-ERROR-ERRORSET 
on syslisp;

syslsp procedure ErrorHeader;
 Prin2String "*** ERROR *** ";

syslsp procedure Error s;
 <<ErrorHeader();
   ErrorTrailer s>>;

syslsp procedure ErrorTrailer s;
   <<Prin2T s;
     Quit;>>;

off syslisp;
End;

REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]