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

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

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

END;