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
             min-cost
             post-process
+        ] if-empty
     ] with-scope ;