Artifact 2f5df621853c167d9331e04c075c930a90c733a6f21d0823241bfc19a69dbe6a:


% MINI-SYMBOL-VALUES.RED

Procedure Set(x,y);
 Begin 
   If IDP x then SYMVAL(IDINF x):=y
    else <<prin2 '"**** Non-ID in SET: ";Print x>>;
   return y;
 End;

End;


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