pict: pict-width, pict-height: Default to 150.

* pict.scm (pict-width, pict-height): Return 150 if there's no
declared height or width.

1 files changed, 4 insertions, 2 deletions

diff --git a/pict.scm b/pict.scm
index 04578e7..579cde3 100644
--- a/pict.scm
+++ b/pict.scm
@@ -752,7 +752,8 @@ of the SVG of PICT or #F."
      ;; Take value up to unit and convert to number
      (let ((index (string-skip s char-set:digit)))
        (string->number (substring s 0 index))))
-    ((? number? n) n)))
+    ((? number? n) n)
+    (_ 150)))
 
 (define (pict-width pict)
   "Return the numeric width of PICT."
@@ -761,7 +762,8 @@ of the SVG of PICT or #F."
      ;; Take value up to unit and convert to number
      (let ((index (string-skip s char-set:digit)))
        (string->number (substring s 0 index))))
-    ((? number? n) n)))
+    ((? number? n) n)
+    (_ 150)))
 
 (define (pict-rotation pict)
   "Return the rotation of PICT."