allow kwargs to repl metacommands

* module/system/repl/command.scm (define-meta-command): Allow repl
  meta-commands to have optional or keyword arguments.

diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 9e79eb7..ca44c90 100644 (file)
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -136,7 +136,7 @@
                                 ((language-reader (repl-language repl))
                                  port (current-module))))))
               ...)
-         (apply (lambda datums b0 b1 ...)
+         (apply (lambda* datums b0 b1 ...)
                 (let ((port (open-input-string (read-line repl))))
                   (let lp ((out '()))
                     (let ((x (read port)))