5 lines
148 B
Text
5 lines
148 B
Text
%swap: procedure (a, b);
|
|
declare (a, b) character;
|
|
return ( 't=' || a || ';' || a || '=' || b || ';' || b '=t;' );
|
|
%end swap;
|
|
%activate swap;
|