ref: a00b6bdbfa72a1688a866edf5f825720c9874ada
dir: /sys/src/cmd/postscript/psfiles/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