diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-28 02:39:22 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-28 02:39:22 +0100 |
commit | b21a6a9d474acdba91442b6fd8f45e8243555ee6 (patch) | |
tree | 753ebca242d66c638aeb7b52063e16425c0bab6f /module/main.scm | |
parent | Move config from module to config directory. (diff) | |
download | calp-b21a6a9d474acdba91442b6fd8f45e8243555ee6.tar.gz calp-b21a6a9d474acdba91442b6fd8f45e8243555ee6.tar.xz |
Allow running without config file.
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/module/main.scm b/module/main.scm index 901746ea..d9fb20cb 100755 --- a/module/main.scm +++ b/module/main.scm @@ -46,8 +46,10 @@ exec guile -e main -s $0 "$@" (when stprof (statprof-start)) - (primitive-load (format #f "~a/.config/calp/config.scm" - (getenv "HOME"))) + (let ((config-file (format #f "~a/.config/calp/config.scm" + (getenv "HOME")))) + (when (file-exists? config-file) + (primitive-load config-file))) (with-output-to-port (open-output-port (option-ref opts 'output "-")) |