Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 17:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

tar-extract should use create-directory*

Browse source
This commit is contained in:
Alex Shinn 2014-06-10 20:58:52 +09:00
parent b4961ee70d
commit 91ba422430
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/tar.scm
View file

@ -135,7 +135,7 @@
(close-output-port out))) (close-output-port out)))
((#\1) (link-file (rename (tar-link-name tar)) path)) ((#\1) (link-file (rename (tar-link-name tar)) path))
((#\2) (symbolic-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 ((#\g #\x)) ;; meta data
((#\3 #\4 #\6) (error "devices not supported" (tar-type tar))) ((#\3 #\4 #\6) (error "devices not supported" (tar-type tar)))
(else (error "invalid tar type" (tar-type tar))))))))) (else (error "invalid tar type" (tar-type tar)))))))))