From 91ba422430184f03875d9275f9859dc1aef520b6 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 10 Jun 2014 20:58:52 +0900 Subject: [PATCH] tar-extract should use create-directory* --- lib/chibi/tar.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/tar.scm b/lib/chibi/tar.scm index 02fc70a7..032cf9e8 100644 --- a/lib/chibi/tar.scm +++ b/lib/chibi/tar.scm @@ -135,7 +135,7 @@ (close-output-port out))) ((#\1) (link-file (rename (tar-link-name tar)) path)) ((#\2) (symbolic-link-file (rename (tar-link-name tar)) path)) - ((#\5) (create-directory path (tar-mode tar))) + ((#\5) (create-directory* path (tar-mode tar))) ((#\g #\x)) ;; meta data ((#\3 #\4 #\6) (error "devices not supported" (tar-type tar))) (else (error "invalid tar type" (tar-type tar)))))))))