diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 17:52:01 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 17:52:01 +0200 |
commit | 6a219c59e6506ee5326822a7ced0e6cd92b7b628 (patch) | |
tree | 3cf44cef098fb0a98137abd7942d8aa10592ddfc /module/main.scm | |
parent | stuff. (diff) | |
download | calp-6a219c59e6506ee5326822a7ced0e6cd92b7b628.tar.gz calp-6a219c59e6506ee5326822a7ced0e6cd92b7b628.tar.xz |
Move a bunch of files into calp module.
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~%" |