about summary refs log tree commit diff stats
path: root/mu.arc.t
diff options
context:
space:
mode:
Diffstat (limited to 'mu.arc.t')
-rw-r--r--mu.arc.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/mu.arc.t b/mu.arc.t
index 4aff9b4f..b4f9cf3f 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -689,7 +689,7 @@
   '((test1
       ; 1 points at first node: tagged-value (int 34)
       ((1 list-address) <- new (list type))
-      ((2 tagged-value-address) <- get-address (1 list-address deref) (0 offset))
+      ((2 tagged-value-address) <- list-value-address (1 list-address))
       ((3 type-address) <- get-address (2 tagged-value-address deref) (0 offset))
       ((3 type-address deref) <- copy (integer literal))
       ((4 location) <- get-address (2 tagged-value-address deref) (1 offset))