From d11737ac8e883061769a9b685940c0e779e86466 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 2 Nov 2014 09:54:01 -0800 Subject: [PATCH] tar: Fix comment, just trim tail. --- extra/tar/tar.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor index bfd4592f9f..8445ae002d 100644 --- a/extra/tar/tar.factor +++ b/extra/tar/tar.factor @@ -20,9 +20,9 @@ linkname magic version uname gname devmajor devminor prefix ; ERROR: checksum-error header ; -: trim-string ( seq -- newseq ) [ "\0 " member? ] trim ; +: trim-string ( seq -- newseq ) [ "\0 " member? ] trim-tail ; -: read-c-string ( n -- str/f ) +: read-c-string ( n -- str ) read [ zero? ] trim-tail "" like ; : read-tar-header ( -- obj )