mes: Upgrade Guile module support.

* module/mes/boot-0.scm (define-module): New macro with minimal Guile support.
  (use-modules): New macro.

module/mes/boot-0.scm

@@ -220,6 +220,15 @@
 (mes-use-module (mes catch))
 
 (mes-use-module (mes posix))
+
+(define-macro (define-module module . rest)
+  `(if ,(and (pair? module)
+             (= 1 (length module))
+             (symbol? (car module)))
+       (define (,(car module) . arguments) (main (command-line)))))
+
+(define-macro (use-modules . rest) #t)
+
 ;; ;; end boot-0.scm
 
 (mes-use-module (mes getopt-long))

module/mes/getopt-long.mes

@@ -26,5 +26,4 @@
 (mes-use-module (srfi srfi-9))
 (mes-use-module (srfi srfi-13))
 (mes-use-module (mes optargs))
-(define-macro (define-module module . rest) #t)
 (include-from-path "mes/getopt-long.scm")

module/mes/optargs.mes

@@ -32,7 +32,6 @@
 (define-macro (set-procedure-property! proc key value)
   proc)
 
-(define-macro (define-module module . rest) #t)
 (include-from-path "mes/optargs.scm")
 
 (define-macro (define-macro* NAME+ARGLIST . BODY)

module/mes/pmatch.mes

@@ -22,9 +22,6 @@
 
 ;;; Code:
 
-(define-macro (define-module module . rest) #t)
-(define-macro (use-modules . rest) #t)
-
 ;;(mes-use-module (mes guile))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes syntax))

module/srfi/srfi-16.mes

@@ -22,6 +22,5 @@
 
 ;;; Code:
 
-(define-macro (define-module module . rest) #t)
 (define (cond-expand-provide . rest) #t)
 (include-from-path "srfi/srfi-16.scm")