diff options
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)) |