mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

Fix assembler for keyword args

Browse source 
* module/system/vm/assembler.scm (begin-kw-arity, kw-prelude): Fix
  functions with keywords.
This commit is contained in:
Andy Wingo 2013-10-22 22:31:26 +02:00
parent be0a8bb4f0
commit 8695854a7d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/vm/assembler.scm
View file

@ -659,8 +659,8 @@ returned instead."
(assert-match req ((? symbol?) ...) "list of symbols") (assert-match req ((? symbol?) ...) "list of symbols")
(assert-match opt ((? symbol?) ...) "list of symbols") (assert-match opt ((? symbol?) ...) "list of symbols")
(assert-match rest (or #f (? symbol?)) "#f or symbol") (assert-match rest (or #f (? symbol?)) "#f or symbol")
(assert-match kw-indices (((? symbol?) . (? integer?)) ...) (assert-match kw-indices (((? keyword?) . (? integer?)) ...)
"alist of symbol -> integer") "alist of keyword -> integer")
(assert-match allow-other-keys? (? boolean?) "boolean") (assert-match allow-other-keys? (? boolean?) "boolean")
(assert-match nlocals (? integer?) "integer") (assert-match nlocals (? integer?) "integer")
(assert-match alternate (or #f (? symbol?)) "#f or symbol") (assert-match alternate (or #f (? symbol?)) "#f or symbol")
@ -726,7 +726,7 @@ returned instead."
(pack-flags allow-other-keys? rest?) (pack-flags allow-other-keys? rest?)
(+ nreq nopt) (+ nreq nopt)
ntotal ntotal
kw-indices) (intern-constant asm kw-indices))
(emit-alloc-frame asm nlocals))) (emit-alloc-frame asm nlocals)))
(define-macro-assembler (label asm sym) (define-macro-assembler (label asm sym)