reduce-algebra
/
reduce-historical
의 미러 git://github.com/reduce-algebra/reduce-historical


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

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

END;