diff options
| -rw-r--r-- | ps/types.ps | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ps/types.ps b/ps/types.ps index 0cc6372..0e530b5 100644 --- a/ps/types.ps +++ b/ps/types.ps @@ -43,7 +43,7 @@ func? { ( } >) }{ (\)) } ifelse concatenate }{ /integertype obj type eq { % if number - /slen obj 10 idiv 1 add def + /slen obj 10 add log ceiling cvi def obj 10 slen string cvrs }{ /stringtype obj type eq { % if string print_readably { @@ -79,7 +79,7 @@ end } def { concatenate delim concatenate } forall dup length delim length sub 0 exch getinterval % strip off final delim } if -} def +end } def % objA objB -> _equal? -> bool /_equal? { 6 dict begin |