diff options
Diffstat (limited to 'undone/main.scm')
| -rw-r--r-- | undone/main.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/undone/main.scm b/undone/main.scm index 663aa1e..18beab3 100644 --- a/undone/main.scm +++ b/undone/main.scm @@ -129,7 +129,12 @@ (apply view-func '())))) (define (main args) - (load rc-file) + ;; Ugly hack, can't think of a better way right now... + (save-module-excursion + (lambda () + (set-current-module (resolve-module '(undone main))) + (load rc-file))) + (if (> (length args) 1) (case (string->symbol (cadr args)) ((add) @@ -144,5 +149,3 @@ (format #t "~a~20t~a~%" (car view) (procedure-documentation (cdr view)))) view-list))))) - -(main (program-arguments)) |