one more bug

1 files changed, 4 insertions, 4 deletions

diff --git a/shell/evaluate.mu b/shell/evaluate.mu
index 3fcd07d9..b27405e0 100644
--- a/shell/evaluate.mu
+++ b/shell/evaluate.mu
@@ -1689,7 +1689,7 @@ fn evaluate-backquote _in-ah: (addr handle cell), _out-ah: (addr handle cell), e
   var in-left-ah/ecx: (addr handle cell) <- get in, left
   debug-print "10", 4/fg, 0/bg
   # check for unquote
-  $macroexpand-iter:unquote: {
+  $evaluate-backquote:unquote: {
     var in-left/eax: (addr cell) <- lookup *in-left-ah
     var unquote?/eax: boolean <- symbol-equal? in-left, ","
     compare unquote?, 0/false
@@ -1705,7 +1705,7 @@ fn evaluate-backquote _in-ah: (addr handle cell), _out-ah: (addr handle cell), e
   # check for unquote-splice in in-left
   debug-print "11", 4/fg, 0/bg
   var out-ah/edi: (addr handle cell) <- copy _out-ah
-  $macroexpand-iter:unquote-splice: {
+  $evaluate-backquote:unquote-splice: {
 #?     dump-cell-from-cursor-over-full-screen in-left-ah
     var in-left/eax: (addr cell) <- lookup *in-left-ah
     {
@@ -1714,11 +1714,11 @@ fn evaluate-backquote _in-ah: (addr handle cell), _out-ah: (addr handle cell), e
         var in-left-is-nil?/eax: boolean <- nil? in-left
         compare in-left-is-nil?, 0/false
       }
-      break-if-!= $macroexpand-iter:unquote-splice
+      break-if-!= $evaluate-backquote:unquote-splice
       var in-left-type/ecx: (addr int) <- get in-left, type
       debug-print "13", 4/fg, 0/bg
       compare *in-left-type, 0/pair
-      break-if-!= $macroexpand-iter:unquote-splice
+      break-if-!= $evaluate-backquote:unquote-splice
       var in-left-left-ah/eax: (addr handle cell) <- get in-left, left
       debug-print "14", 4/fg, 0/bg
       var in-left-left/eax: (addr cell) <- lookup *in-left-left-ah