diff options
Diffstat (limited to 'hn')
-rwxr-xr-x | hn/g | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -53,4 +53,9 @@ (athings:latest (hash-set h (string->symbol id) link) (cdr athings:sxml)))))) +(define (athings:data-dir) + (let ((dir (build-path (find-system-path 'orig-dir) "data"))) + (unless (directory-exists? dir) (make-directory dir)) + dir)) + |