Update svg for xml api changes

diff --git a/extra/svg/svg.factor b/extra/svg/svg.factor
index 6df73146532dac20a55e4ace0535065b6266f484..4d8a6e6a175cbbf453f8405e65a83ff2600e2bf0 100644 (file)
--- a/extra/svg/svg.factor
+++ b/extra/svg/svg.factor
@@ -79,7 +79,7 @@ transform-list = wsp* transforms?:t wsp*
 ;EBNF
 
 : tag-transform ( tag -- transform )
-    "transform" svg-name swap at svg-transform>affine-transform ;
+    "transform" svg-name attr svg-transform>affine-transform ;
 
 TUPLE: moveto p relative? ;
 TUPLE: closepath ;
@@ -221,4 +221,4 @@ svg-path = wsp* moveto-drawto-command-groups?:x wsp* => [[ x ]]
 ;EBNF
 
 : tag-d ( tag -- d )
-    "d" svg-name swap at svg-path>array ;
+    "d" svg-name attr svg-path>array ;