boot-6: Define module-procedure.
* mes/module/mes/boot-6.mes (define-module): Also define module-procedure.
This commit is contained in:
parent
3ab1d4b0a5
commit
8cff0f178f
|
@ -2244,7 +2244,15 @@
|
||||||
;; ((load-toplevel)
|
;; ((load-toplevel)
|
||||||
;; (let ((m (process-define-module
|
;; (let ((m (process-define-module
|
||||||
;; (list ,@(compile-define-module-args args)))))
|
;; (list ,@(compile-define-module-args args)))))
|
||||||
|
;; (when (> %debug 3)
|
||||||
|
;; (format (current-error-port) "define-module: name=~s\n" m))
|
||||||
;; (set-current-module m)
|
;; (set-current-module m)
|
||||||
|
;; ;; XXX For Mes -- how/where does Guile define this 'module-procedure?
|
||||||
|
;; ,(let ((module (and (pair? args) (car args))))
|
||||||
|
;; `(when ,(and (pair? module)
|
||||||
|
;; (= 1 (length module))
|
||||||
|
;; (symbol? (car module)))
|
||||||
|
;; (define (,(car module) . arguments) (main (command-line)))))
|
||||||
;; m))
|
;; m))
|
||||||
;; (else
|
;; (else
|
||||||
;; (error "define-module can only be used at the top level"))))
|
;; (error "define-module can only be used at the top level"))))
|
||||||
|
@ -2255,6 +2263,12 @@
|
||||||
(when (> %debug 3)
|
(when (> %debug 3)
|
||||||
(format (current-error-port) "define-module: name=~s" m))
|
(format (current-error-port) "define-module: name=~s" m))
|
||||||
(set-current-module m)
|
(set-current-module m)
|
||||||
|
;; XXX For Mes -- how/where does Guile define this 'module-procedure?
|
||||||
|
,(let ((module (and (pair? args) (car args))))
|
||||||
|
`(when ,(and (pair? module)
|
||||||
|
(= 1 (length module))
|
||||||
|
(symbol? (car module)))
|
||||||
|
(define (,(car module) . arguments) (main (command-line)))))
|
||||||
m))
|
m))
|
||||||
|
|
||||||
;; The guts of the use-modules macro. Add the interfaces of the named
|
;; The guts of the use-modules macro. Add the interfaces of the named
|
||||||
|
|
Loading…
Reference in New Issue