Anonymous user
Runtime evaluation/In an environment: Difference between revisions
→{{header|Simula}}
Line 851:
END LOOKUP;
REF(ENV) PROCEDURE SET(V, X); TEXT V; REAL X;
BEGIN
REF(ITEM) I; I :- LOOKUP(V);
IF I == NONE THEN I :- NEW ITEM(V, X) ELSE I.X := X;
SET :- THIS ENV;
END SET;
Line 1,080 ⟶ 1,081:
END EXPR;
REF(EXPR) EXA, EXB;
IF EXA.EVAL("2 ^ X") THEN
BEGIN
|