andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

boot-6: Define module-procedure. 

* mes/module/mes/boot-6.mes (define-module): Also define
module-procedure.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-12-30 11:52:29 +01:00
parent 3d487b7277
commit e5c231a05d
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mes/module/mes/boot-6.mes
View File

@ -2302,6 +2302,12 @@
(when (> %debug 3)
(format (current-error-port) "define-module: name=~s" 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))
;; The guts of the use-modules macro. Add the interfaces of the named