pict: polyline: Add docstring.

* pict.scm (polyline): Add docstring.

1 files changed, 6 insertions, 4 deletions

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