steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix handling of global_pax_header

db4
Doug Coleman 2009-04-14 22:59:45 -05:00
parent 34e945fd28
commit 2ca8e69348
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/tar/tar.factor
View File

@ -83,8 +83,8 @@ M: unknown-typeflag summary ( obj -- str )
! Normal file ! Normal file
: typeflag-0 ( header -- ) : typeflag-0 ( header -- )
dup name>> dup global_pax_header = [ dup name>> dup "global_pax_header" = [
[ read-data-blocks ] with-string-writer drop drop [ read-data-blocks ] with-string-writer drop
] [ ] [
prepend-current-directory read/write-blocks prepend-current-directory read/write-blocks
] if ; ] if ;