fix handling of global_pax_header

2009-04-14 22:59:45 -05:00 · 2009-04-14 22:59:45 -05:00 · 2ca8e69348
parent 34e945fd28
commit 2ca8e69348
1 changed files with 2 additions and 2 deletions
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@ -83,8 +83,8 @@ M: unknown-typeflag summary ( obj -- str )

 ! Normal file
 : typeflag-0 ( header -- )
-    dup name>> dup global_pax_header = [
-        [ read-data-blocks ] with-string-writer drop
+    dup name>> dup "global_pax_header" = [
+        drop [ read-data-blocks ] with-string-writer drop
    ] [
        prepend-current-directory read/write-blocks
    ] if ;