Fixing long-standing bug in wrap

basis/wrap/wrap-tests.factor

@@ -0,0 +1,5 @@
+! Copyright (C) 2009 Daniel Ehrenberg
+! See http://factorcode.org/license.txt for BSD license.
+USING: wrap tools.test ;
+
+[ { } ] [ { } 10 10 wrap ] unit-test

basis/wrap/wrap.factor

@@ -77,8 +77,10 @@ SYMBOL: line-ideal
     [
         line-ideal set
         line-max set
-        initialize
+        [ { } ] [
-        [ wrap-step ] reduce
+            initialize
-        min-cost
+            [ wrap-step ] reduce
-        post-process
+            min-cost
+            post-process
+        ] if-empty
     ] with-scope ;