diff options
author | Andy Wingo <wingo@pobox.com> | 2020-05-11 10:45:29 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-05-11 10:45:29 +0200 |
commit | b99a63447b50ffb9b10bab6d2f57643ab82449c9 (patch) | |
tree | 55eff31f90430bf9a119c3f62abb015967cd5f9a /module/language/tree-il/compile-bytecode.scm | |
parent | dd4dc1f6c41d075de1419f1dfb6841b2e59bd463 (diff) | |
download | guile-b99a63447b50ffb9b10bab6d2f57643ab82449c9.tar.gz |
Fix kw initializer bug in baseline compiler
* module/language/tree-il/compile-bytecode.scm (compile-closure): The
first sym has index 1, not 0, because of the closure.
Diffstat (limited to 'module/language/tree-il/compile-bytecode.scm')
-rw-r--r-- | module/language/tree-il/compile-bytecode.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm index e47c9ef2d..ea6999594 100644 --- a/module/language/tree-il/compile-bytecode.scm +++ b/module/language/tree-il/compile-bytecode.scm @@ -1303,7 +1303,7 @@ in the frame with for the lambda-case clause @var{clause}." (values aok? (map (match-lambda ((key name sym) - (cons key (list-index syms sym)))) + (cons key (1+ (list-index syms sym))))) kw))))) (lambda (allow-other-keys? kw-indices) (when label (emit-label asm label)) |