File psl-1983/tests/mini-symbol-values.red artifact 2f5df62185 part of check-in eb17ceb7f6
% 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;
% 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;