guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 01/04: Fix kw initializer bug in baseline compiler


From: Andy Wingo
Subject: [Guile-commits] 01/04: Fix kw initializer bug in baseline compiler
Date: Mon, 11 May 2020 05:08:20 -0400 (EDT)

wingo pushed a commit to branch master
in repository guile.

commit b99a63447b50ffb9b10bab6d2f57643ab82449c9
Author: Andy Wingo <address@hidden>
AuthorDate: Mon May 11 10:45:29 2020 +0200

    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.
---
 module/language/tree-il/compile-bytecode.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/tree-il/compile-bytecode.scm 
b/module/language/tree-il/compile-bytecode.scm
index e47c9ef..ea69995 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]