extra: use [-] instead of "- 0 max".

[factor.git] / extra / pdf / canvas / canvas.factor

diff --git a/extra/pdf/canvas/canvas.factor b/extra/pdf/canvas/canvas.factor
index 588c37db6d901294a4f0091564450ccb1a5edcee..c3d9d9a88c1f2b8a71c05ea565a12bacc3caaded 100644 (file)
--- a/extra/pdf/canvas/canvas.factor
+++ b/extra/pdf/canvas/canvas.factor
@@ -106,10 +106,10 @@ foreground background page-color inset line-height metrics ;
     [ 0 >>x ] dip [ dup line-break ] times drop ;
 
 : avail-width ( canvas -- n )
-    [ width ] [ x>> ] bi - 0 max ;
+    [ width ] [ x>> ] bi [-] ;
 
 : avail-height ( canvas -- n )
-    [ height ] [ y>> ] bi - 0 max ;
+    [ height ] [ y>> ] bi [-] ;
 
 : avail-lines ( canvas -- n )
     [ avail-height ] [ line-height>> ] bi /i ; ! FIXME: 1 +