mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:40:29 +02:00
Code Activity

allow kwargs to repl metacommands

Browse source 
* module/system/repl/command.scm (define-meta-command): Allow repl
  meta-commands to have optional or keyword arguments.
This commit is contained in:
Andy Wingo 2010-06-26 21:46:28 +02:00
parent 554137a7e9
commit fda1dd3860
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/repl/command.scm
View file

@ -136,7 +136,7 @@
((language-reader (repl-language repl)) ((language-reader (repl-language repl))
port (current-module)))))) port (current-module))))))
...) ...)
(apply (lambda datums b0 b1 ...) (apply (lambda* datums b0 b1 ...)
(let ((port (open-input-string (read-line repl)))) (let ((port (open-input-string (read-line repl))))
(let lp ((out '())) (let lp ((out '()))
(let ((x (read port))) (let ((x (read port)))