tinyvg: whoops.

diff --git a/extra/tinyvg/tinyvg.factor b/extra/tinyvg/tinyvg.factor
index b7fc6ebcfc2218c1ab1cebe5d04e247290397002..95f41a81ce51cacabaff37e982e44410901c6df2 100644 (file)
--- a/extra/tinyvg/tinyvg.factor
+++ b/extra/tinyvg/tinyvg.factor
@@ -406,7 +406,7 @@ TUPLE: quadratic-bezier < instruction control point1 ;
 C: <quadratic-bezier> quadratic-bezier
 
 : read-tag ( -- line-width/f tag )
-    read1 [ 4 bit? [ read-unit ] [ f ] if* ] [ 3 bits ] bi ;
+    read1 [ 4 bit? [ read-unit ] [ f ] if ] [ 3 bits ] bi ;
 
 : read-arc ( -- large-arc? sweep? )
     read1 [ 0 bit? ] [ 1 bit? ] bi ;