[modify] with-grid-path autoclosep assumed when interiorp

1 files changed, 2 insertions, 2 deletions

diff --git a/src/grid-geometry.lisp b/src/grid-geometry.lisp
index eac3d5a..218cdf2 100644
--- a/src/grid-geometry.lisp
+++ b/src/grid-geometry.lisp
@@ -64,12 +64,12 @@ top right corners of the bounding box for POLY "
   "Interiorp assumes autoclosep."
   (with-gensyms (points x1 y1 x2 y2 more)
     (let* ((autoclose-clause
-             (when autoclosep
+             (when (or interiorp autoclosep)
                `(destructuring-bind (,x2 ,y2) (first ,points)
                   (with-grid-line (,x ,y) (,x2 ,y2) (,x1 ,y1)
                     ,@body))))
            (interior-clause
-             (when (and autoclosep interiorp)
+             (when interiorp
                `(destructuring-bind ((,x1 ,y1) (,x2 ,y2)) (grid-bbox-for ,points)
                   (loop for ,x from ,x1 to ,x2 do
                     (loop for ,y from ,y1 to ,y2