install-thing% must use -create-direcory instead of create-directory

This commit is contained in:
frese 2003-12-22 14:13:13 +00:00
parent b934e1f8ce
commit a4bde841c8
1 changed files with 2 additions and 2 deletions

View File

@ -1,5 +1,5 @@
;;; Installation library for scsh modules. ;;; Installation library for scsh modules.
;;; $Id: install-lib.scm,v 1.4 2003/12/21 20:54:23 michel-schinz Exp $ ;;; $Id: install-lib.scm,v 1.5 2003/12/22 14:13:13 frese Exp $
;; TODO ;; TODO
;; - add support for image creation, ;; - add support for image creation,
@ -395,7 +395,7 @@
(cond ((or (file-regular? source) (file-symlink? source)) (cond ((or (file-regular? source) (file-symlink? source))
(-copy-file source target perms)) (-copy-file source target perms))
((file-directory? source) ((file-directory? source)
(create-directory target perms) (-create-directory target perms)
(install-directory-contents% layout (install-directory-contents% layout
source source
location location