From 7ef48c406922eee5bfeb8a042df3a4ddf81121aa Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 7 Jan 2018 13:58:07 +0100 Subject: [PATCH] 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 51feb6d2b..2dc813694 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 ()))))))))))