File psl-1983/tests/mini-symbol-values.red artifact 2f5df62185 part of check-in 6f3f9aca4c

% 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;