[Guile-commits] 06/25: Fix primitive reification for scm-set! / word-set!.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 7ef48c406922eee5bfeb8a042df3a4ddf81121aa
Author: Andy Wingo <address@hidden>
Date:   Sun Jan 7 13:58:07 2018 +0100

    Fix primitive reification for scm-set! / word-set!.
    
    * module/language/cps/reify-primitives.scm (reify-primitives): Fix for
      scm-set! and word-set!.
---
 module/language/cps/reify-primitives.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps/reify-primitives.scm 
b/module/language/cps/reify-primitives.scm
index 51feb6d..2dc8136 100644
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-primitives.scm
@@ -368,7 +368,7 @@
                              (letv idx*)
                              (letk kop ($kargs ('idx) (idx*)
                                          ($continue k src
-                                           ($primcall op ann (obj idx*)))))
+                                           ($primcall op ann (obj idx* val)))))
                              (setk label ($kargs names vars
                                            ($continue kop src
                                              ($primcall 'load-u64 idx 
()))))))))))