File psl-1983/util/mini-support-patch.red artifact 65b08a1674 part of check-in 3af273af29
GLOBAL '(SCNVAL); LISP PROCEDURE !%SCAN; <<SCNVAL := CHANNELREADTOKEN IN!*; TOKTYPE!*>>; PROCEDURE UNREADCH U; UNREADCHAR (ID2INT (U)); END;
GLOBAL '(SCNVAL); LISP PROCEDURE !%SCAN; <<SCNVAL := CHANNELREADTOKEN IN!*; TOKTYPE!*>>; PROCEDURE UNREADCH U; UNREADCHAR (ID2INT (U)); END;