use prefix correctly

2009-04-14 22:54:28 -05:00 · 2009-04-14 22:54:28 -05:00 · 34e945fd28
parent 8644c98549
commit 34e945fd28
1 changed files with 2 additions and 1 deletions
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@ -71,8 +71,9 @@ ERROR: checksum-error ;
    ] if ;

 ERROR: unknown-typeflag ch ;
+
 M: unknown-typeflag summary ( obj -- str )
-    ch>> "Unknown typeflag: " prefix ;
+    ch>> [ "Unknown typeflag: " ] dip prefix ;

 : read/write-blocks ( tar-header path -- )
    binary [ read-data-blocks ] with-file-writer ;