# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954422797 0
# Node ID 15c0a66a4a8b2b7f299a6e1cd0cd584f481541d3
# Parent  5236c7327cd6d05b748f20b7e4231762739cdf24
Replace gs_languagelevel by languagelevel.
(DefOp): New proc.

diff -r 5236c7327cd6 -r 15c0a66a4a8b etc/ps-prin0.ps
--- a/etc/ps-prin0.ps	Thu Mar 30 13:21:45 2000 +0000
+++ b/etc/ps-prin0.ps	Thu Mar 30 13:26:37 2000 +0000
@@ -100,7 +100,7 @@
 }ifelse
 %%EndProcSet
 
-gs_languagelevel 1 eq{ % operators for language level 2 only
+languagelevel 1 eq{ % operators for language level 2 only
  /<<{mark}bind def
  />>{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def
  /setpagedevice{pop}bind def
@@ -109,10 +109,11 @@
 
 % device dependent operators
 
-/setduplexmode where{pop}
-{/setduplexmode /duplexmode where{pop/duplexmode}{/pop}ifelse load def}ifelse
+/DefOp{
+ dup where{pop pop pop}
+ {exch dup where{pop}{pop/pop}ifelse load def}ifelse}def
 
-/settumble where{pop}
-{/settumble /tumble where{pop/tumble}{/pop}ifelse load def}ifelse
+/duplexmode /setduplexmode DefOp
+/tumble /settumble DefOp
 
 % === END ps-print prologue 0