6 lines
237 B
Text
6 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
|