From d222b152b6c50aa07df681f69860a4ac7f063345 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 8 May 2015 07:28:47 +0900 Subject: [PATCH] save-history should ensure the directory exists --- lib/chibi/snow/interface.scm | 1 + lib/chibi/snow/interface.sld | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/snow/interface.scm b/lib/chibi/snow/interface.scm index fe6a1181..0a668f8d 100644 --- a/lib/chibi/snow/interface.scm +++ b/lib/chibi/snow/interface.scm @@ -47,6 +47,7 @@ (define (save-history cfg) (let ((history-file (conf-input-history-file cfg))) (guard (exn (else (warn "couldn't save history to " history-file))) + (create-directory* (path-directory history-file)) (call-with-output-file history-file (lambda (out) (write (remove (lambda (x) (equal? x "")) diff --git a/lib/chibi/snow/interface.sld b/lib/chibi/snow/interface.sld index ed353f50..88baf582 100644 --- a/lib/chibi/snow/interface.sld +++ b/lib/chibi/snow/interface.sld @@ -4,5 +4,6 @@ restore-history save-history) (import (scheme base) (scheme char) (scheme read) (scheme write) (scheme file) (scheme process-context) (srfi 1) - (chibi config) (chibi show) (chibi stty) (chibi term edit-line)) + (chibi config) (chibi filesystem) (chibi pathname) + (chibi show) (chibi stty) (chibi term edit-line)) (include "interface.scm"))