Overview
| Comment: | guarded a create-directory with directory-exists? |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
60290c5f00a11aa8022b6ab155b0ff80 |
| User & Date: | mmgraham on 2023-05-24 18:39:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-29
| ||
| 20:53 | Merged in dashboard-db stuff check-in: 19fa6f67c5 user: matt tags: v1.80 | |
|
2023-05-24
| ||
| 18:39 | guarded a create-directory with directory-exists? check-in: 60290c5f00 user: mmgraham tags: v1.80 | |
| 04:16 | Added exception handlers on transactions on sync and in one additional with-input in simple locks. check-in: 9062c1c10d user: matt tags: v1.80 | |
Changes
Modified dbfile.scm from [5c3217f805] to [8620dfd74f].
| ︙ | ︙ | |||
200 201 202 203 204 205 206 |
)
#f
)
)
(define (dbfile:make-tmpdir-name areapath)
(let* ((dname (conc "/tmp/"(current-user-name)"/" (string-translate areapath "/" "."))))
| > | | 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 |
)
#f
)
)
(define (dbfile:make-tmpdir-name areapath)
(let* ((dname (conc "/tmp/"(current-user-name)"/" (string-translate areapath "/" "."))))
(unless (directory-exists? dname)
(create-directory dname #t))
dname))
(define (dbfile:run-id->path apath run-id)
(conc apath"/"(dbfile:run-id->dbname run-id)))
(define (db:dbname->path apath dbname)
(conc apath"/"dbname))
|
| ︙ | ︙ |