From 34e945fd28cc4f2048eb84eb61acb8f4b734c78e Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Tue, 14 Apr 2009 22:54:28 -0500
Subject: [PATCH] use prefix correctly
---
extra/tar/tar.factor | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor
index e83908b002..50d3f25593 100755
--- 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 ;