5 lines
237 B
Text
5 lines
237 B
Text
DEFINE('XADD(X)','XADD.INIT') :(XADD.END)
|
|
XADD.INIT ADDVALUE = CALL_SOME_EXPENSIVE_OPERATION()
|
|
DEFINE('XADD(X)','XADD')
|
|
XADD XADD = X + ADDVALUE :(RETURN)
|
|
XADD.END
|