diff options
-rw-r--r-- | module/system/vm/program.scm | 3 |
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) '()) |