1 b855148c 2004-05-16 devnull %
 2 b855148c 2004-05-16 devnull % Unbind the operators in an executable array or packedarray. Leaves the
 3 b855148c 2004-05-16 devnull % unbound array or the original object on the stack.
 4 b855148c 2004-05-16 devnull %
 5 b855148c 2004-05-16 devnull 
 6 b855148c 2004-05-16 devnull /unbind {
 7 b855148c 2004-05-16 devnull 	0 index xcheck
 8 b855148c 2004-05-16 devnull 	1 index type /arraytype eq
 9 b855148c 2004-05-16 devnull 	2 index type /packedarraytype eq or and {
10 b855148c 2004-05-16 devnull 		dup length array copy cvx
11 b855148c 2004-05-16 devnull 		dup 0 exch {
12 b855148c 2004-05-16 devnull 			dup type /operatortype eq {
13 b855148c 2004-05-16 devnull 				(                          ) cvs cvn cvx
14 b855148c 2004-05-16 devnull 			} if
15 b855148c 2004-05-16 devnull 
16 b855148c 2004-05-16 devnull 			0 index xcheck
17 b855148c 2004-05-16 devnull 			1 index type /arraytype eq
18 b855148c 2004-05-16 devnull 			2 index type /packedarraytype eq or and {
19 b855148c 2004-05-16 devnull 				unbind
20 b855148c 2004-05-16 devnull 			} if
21 b855148c 2004-05-16 devnull 
22 b855148c 2004-05-16 devnull 			3 copy put pop
23 b855148c 2004-05-16 devnull 			1 add
24 b855148c 2004-05-16 devnull 		} forall
25 b855148c 2004-05-16 devnull 		pop
26 b855148c 2004-05-16 devnull 	} if
27 b855148c 2004-05-16 devnull } def
28 b855148c 2004-05-16 devnull