* lib/hg_init.ps (load): implemented in PostScript.

	(_hg_operator_op_load): removed.

1 files changed, 8 insertions, 0 deletions

diff --git a/lib/hg_init.ps b/lib/hg_init.ps
index 3b469eb..1cd8c60 100644
--- a/lib/hg_init.ps
+++ b/lib/hg_init.ps
@@ -159,6 +159,14 @@ systemdict /.statementedit known {
     } if
     exch type /realtype eq {cvr} if
 } bind odef
+% -key- load -value-
+/load {
+    dup where {
+	exch get
+    } {
+	/load errordict /undefined get exec
+    } ifelse
+} bind odef
 % matrix -matrix-
 /matrix {
     6 array identmatrix