fix tar

2009-01-19 22:26:46 -06:00 · 2009-01-19 22:26:46 -06:00 · 570577cca0
parent 0c7ff04ce7
commit 570577cca0
1 changed files with 3 additions and 0 deletions
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@ -16,6 +16,9 @@ SYMBOLS: base-dir filename ;

 : tar-trim ( seq -- newseq ) [ "\0 " member? ] trim ;

+: read-c-string* ( n -- str/f )
+    read [ zero? ] trim-right [ f ] when-empty ;
+
 : read-tar-header ( -- obj )
    \ tar-header new
    100 read-c-string* >>name