Ticket #556: setup-api-write-info.diff

File setup-api-write-info.diff, 461 bytes (added by Mario Domenech Goulart, 14 years ago)

  • setup-api.scm 

    diff --git a/setup-api.scm b/setup-api.scm
index b362c24..992e796 100644
    a b  
    477477    (when (setup-verbose-mode) (printf "writing info ~A -> ~S ...~%" id info))
    478478    (let* ((sid (->string id))
    479479           (setup-file (make-setup-info-pathname sid (repo-path #t))))
     480      (ensure-directory setup-file)
    480481      (cond (*sudo*
    481482             (let ((tmp (create-temporary-file)))
    482483               (with-output-to-file tmp (cut pp info))