Artifact b933afaa887bf5700187a18b23ce29745f48bbfed4bedcf2976afb53431c7775:


% MINI-ERROR-ERRORSET 
on syslisp;

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

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

syslsp procedure ErrorTrailer s;
   <<If pairp s then Prin2L s else Prin2T s;
     Quit;>>;

syslsp procedure Prin2L s;
% Should be in PrintF?
 <<While Pairp s do <<prin2 car s; s:=cdr s; prin2 " ">>;
   Terpri()>>;

off syslisp;
End;

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