pict: polygon: Add docstring.

* pict.scm (polygon): Add docstring.

1 files changed, 6 insertions, 4 deletions

diff --git a/pict.scm b/pict.scm
index 85d4af1..de66fb3 100644
--- a/pict.scm
+++ b/pict.scm
@@ -599,10 +599,12 @@ override the line color and line thickness."
                                     ,(number->string stroke-width)))))))))))
 
 (define* (polygon points
-               #:key
-               (border-color "black")
-               (border-width 1))
-  "Draw a polygon from POINTS, a list of x and y coordinate pairs."
+                  #:key
+                  (border-color "black")
+                  (border-width 1))
+  "Draw a polygon from POINTS, a list of x and y coordinate pairs.
+The keys BORDER-COLOR (a string) and BORDER-WIDTH (a number) are
+accepted to override the line color and line thickness."
   (let* ((xs (map car points))
          (ys (map cdr points)))
     (make-pict