stencil.scm: make args optional in stencil-whiteout (issue 284980043 by address@hidden)

[paulwmorris]

Reviewers: ,

Message:
Please review, thanks.
-Paul

Description:
stencil.scm: make args optional in stencil-whiteout

Please review this at https://codereview.appspot.com/284980043/

Affected files (+2, -1 lines):
  M scm/stencil.scm


Index: scm/stencil.scm
diff --git a/scm/stencil.scm b/scm/stencil.scm
index  
bec03016505e4cc5317061f08d2b80f5e416e53f..950d99f9cb8e2b1e61baf87638e81b558105766a  
100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -801,7 +801,8 @@ the white outline extends past the extents of stencil  
@var{stil}."
     (stencil-with-color (ly:round-filled-box x-ext y-ext blot) color)
     stil)))

-(define-public (stencil-whiteout stil style thickness line-thickness)
+(define*-public (stencil-whiteout stil #:optional (style 'box)
+                 (thickness '()) (line-thickness 0.1))
   "@var{style} is a symbol that determines the shape of the white
 background.  @var{thickness} is how far, as a multiple of
 @var{line-thickness}, the white background extends past the extents