summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/system/vm/program.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 24e3def2f..99f9a3cb9 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -180,7 +180,8 @@
(define (arguments->lambda-list arguments)
(let ((req (or (assq-ref arguments 'required) '()))
(opt (or (assq-ref arguments 'optional) '()))
- (key (or (assq-ref arguments 'keyword) '()))
+ (key (map keyword->symbol
+ (map car (or (assq-ref arguments 'keyword) '()))))
(rest (or (assq-ref arguments 'rest) '())))
`(,@req
,@(if (pair? opt) (cons #:optional opt) '())