File psl-1983/util/mini-support-patch.red artifact 65b08a1674 part of check-in 4f9bfc4337


GLOBAL '(SCNVAL);
LISP PROCEDURE !%SCAN;
<<SCNVAL := CHANNELREADTOKEN IN!*;
  TOKTYPE!*>>;

PROCEDURE UNREADCH U;
 UNREADCHAR (ID2INT (U));

END;


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