diff options
Diffstat (limited to 'module/main.scm')
| -rw-r--r-- | module/main.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/module/main.scm b/module/main.scm index 31d6957c..287bc75e 100644 --- a/module/main.scm +++ b/module/main.scm @@ -51,6 +51,8 @@ (br) (b "Should NOT be used in production."))) + ;; TODO --config flag for loading alternate configuration file. + ;; Techical note: ;; Guile's getopt doesn't support repeating keys. Thereby the small jank, ;; and my regex hack below. @@ -122,10 +124,13 @@ (map (lambda (pair) (let* (((key value) (string-split (cadr pair) #\=))) (set-config! (string->symbol key) - (primitive-eval (call-with-input-string value read))))) + (let ((form (call-with-input-string value read))) + (if (list? form) + (primitive-eval form) + form))))) (filter (lambda (p) ;; should match `--option', as well as a single flag with any - ;; number of othter options, as long as the last one is `o'. + ;; number of other options, as long as the last one is `o'. (string-match "^-(-option|[^-]*o)$" (car p))) (zip args (cdr args)))) |