Artifact 3817b60e2087b5e451ee53d9b6adef897b5680438412b94bcc0ba33e4cf934a8:


% RAWBREAK.RED - A safer break loop if RAWIO is loaded
% MLG 16 Jan 1983

FLUID '(!*RAWIO);

CopyD('OldBreak,'break);

procedure newbreak();
 Begin scalar OldRaw,x;
	OldRaw :=!*RawIo;
	If OldRaw then EchoOn();
	x:=OldBreak();
	If OldRaw Then EchoOff();
	return x;
 End;

Copyd('break,'newbreak);
flag('break,'lose);



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