ref: 8be7f27b758ef9ef818f68db0d8bcb7b038eae0e
dir: /sys/lib/postscript/prologues/unbind.ps/
% % Unbind the operators in an executable array or packedarray. Leaves the % unbound array or the original object on the stack. % /unbind { 0 index xcheck 1 index type /arraytype eq 2 index type /packedarraytype eq or and { dup length array copy cvx dup 0 exch { dup type /operatortype eq { ( ) cvs cvn cvx } if 0 index xcheck 1 index type /arraytype eq 2 index type /packedarraytype eq or and { unbind } if 3 copy put pop 1 add } forall pop } if } def