diff options
Diffstat (limited to '')
-rw-r--r-- | module/calp/main.scm (renamed from module/main.scm) | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/module/main.scm b/module/calp/main.scm index 4d3e01a6..2e08fd0f 100644 --- a/module/main.scm +++ b/module/calp/main.scm @@ -1,5 +1,5 @@ ;; -*- geiser-scheme-implementation: guile -*- -(define-module (main) +(define-module (calp main) :use-module (util) :use-module (srfi srfi-1) @@ -174,13 +174,13 @@ (let ((ropt (ornull (option-ref opts '() '()) '("term")))) ((case (string->symbol (car ropt)) - ((html) (@ (entry-points html) main)) - ((term) (@ (entry-points terminal) main)) - ((import) (@ (entry-points import) main)) - ((text) (@ (entry-points text) main)) - ((ical) (@ (entry-points ical) main)) - ((server) (@ (entry-points server) main)) - ((benchmark) (@ (entry-points benchmark) main)) + ((html) (@ (calp entry-points html) main)) + ((term) (@ (calp entry-points terminal) main)) + ((import) (@ (calp entry-points import) main)) + ((text) (@ (calp entry-points text) main)) + ((ical) (@ (calp entry-points ical) main)) + ((server) (@ (calp entry-points server) main)) + ((benchmark) (@ (calp entry-points benchmark) main)) (else => (lambda (s) (format (current-error-port) "Unsupported mode of operation: ~a~%" |