diff options
| author |  Tom Willemsen | 2012-08-15 00:24:32 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-08-15 00:24:32 +0200 |
| commit | 5769114042ec60274d48cb3794c00348ca22da66 (patch) | |
| tree | 5c374cb13831cb04104d597a1b2c2461d11c0ed7 /undone/main.scm | |
| parent | 50dc2da0b1710e6f93ffbbfca0db7e9f937a3d8a (diff) | |
| download | undone-5769114042ec60274d48cb3794c00348ca22da66.tar.gz undone-5769114042ec60274d48cb3794c00348ca22da66.zip | |
Add Makefiles and others
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)) |