pict: circle: Add docstring.

* pict.scm (circle): Add docstring.

1 files changed, 1 insertions, 0 deletions

diff --git a/pict.scm b/pict.scm
index 1d421c3..f12848c 100644
--- a/pict.scm
+++ b/pict.scm
@@ -653,6 +653,7 @@ the line color and line thickness."
                  #:key
                  (border-color "black")
                  (border-width 1))
+  "Return a circle with an outer diameter of SIZE."
   (let* ((border-width (min border-width (/ size 2)))
          (radius (exact->inexact
                   (/ (- size border-width) 2))))