pict-attr: Accept optional initial XPath.

1 files changed, 2 insertions, 2 deletions

diff --git a/pict.scm b/pict.scm
index 957910a..2fa0352 100644
--- a/pict.scm
+++ b/pict.scm
@@ -593,10 +593,10 @@ strings that are built from the list of attributes LST."
                ,txt))))
 
 
-(define (pict-attr attr pict)
+(define* (pict-attr attr pict #:key (path '()))
   "Return the value of the selected ATTRIBUTE of the outermost element
 of the SVG of PICT or #F."
-  (and=> ((sxpath `(@ ,attr *any*))
+  (and=> ((sxpath `(,@path @ ,attr *any*))
           (pict-sxml pict))
          (lambda (m) (and (pair? m)
                           (car m)))))