From 8695854a7d0795f6a0680bbdf1fc62f2894b45aa Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 22 Oct 2013 22:31:26 +0200 Subject: [PATCH] Fix assembler for keyword args * module/system/vm/assembler.scm (begin-kw-arity, kw-prelude): Fix functions with keywords. --- module/system/vm/assembler.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index 6b0ac487d..f43acb3c8 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -659,8 +659,8 @@ returned instead." (assert-match req ((? symbol?) ...) "list of symbols") (assert-match opt ((? symbol?) ...) "list of symbols") (assert-match rest (or #f (? symbol?)) "#f or symbol") - (assert-match kw-indices (((? symbol?) . (? integer?)) ...) - "alist of symbol -> integer") + (assert-match kw-indices (((? keyword?) . (? integer?)) ...) + "alist of keyword -> integer") (assert-match allow-other-keys? (? boolean?) "boolean") (assert-match nlocals (? integer?) "integer") (assert-match alternate (or #f (? symbol?)) "#f or symbol") @@ -726,7 +726,7 @@ returned instead." (pack-flags allow-other-keys? rest?) (+ nreq nopt) ntotal - kw-indices) + (intern-constant asm kw-indices)) (emit-alloc-frame asm nlocals))) (define-macro-assembler (label asm sym)