diff options
| author | Akira TAGOH <akira@tagoh.org> | 2006-09-23 19:03:53 +0000 |
|---|---|---|
| committer | Akira TAGOH <akira@tagoh.org> | 2006-09-23 19:03:53 +0000 |
| commit | 487a52a0bb5eafa4201b055e58bb3aada1d561eb (patch) | |
| tree | 3a5da8e1945e5b6eee05c3f13c8f80d7248156c2 /lib | |
| parent | 90b92878ab43b0fa1dbb1577ba162d36eb1500b8 (diff) | |
* lib/hg_init.ps (anchorsearch): treat /rangecheck as /stackunderflow when it happens in index or roll.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/hg_init.ps | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index 18eea5f..7b4e006 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -108,7 +108,15 @@ systemdict /.statementedit known { %%% Level 1 operators % string seek anchorsearch post match true | string false /anchorsearch { - 1 index 3 1 roll search { + {1 index 3 1 roll} stopped { + $error /newerror get { + $error /errorname get /rangecheck eq { + $error /errorname /stackunderflow put + } if + stop + } if + } if + search { length 0 eq { 3 -1 roll pop true } { |