about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-11-01 02:17:23 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-11-01 02:17:23 -0700
commit0909f30c47392e2f9548e6a37dd11a4eb26607f3 (patch)
tree65ab0e83545d05779fa8317bb3fb6fd462116f95
parent990963b47033b6392531d5feaff71a064ddb787c (diff)
downloadmu-0909f30c47392e2f9548e6a37dd11a4eb26607f3.tar.gz
198
-rw-r--r--mu.arc4
1 files changed, 2 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc
index 56152fbd..7746d668 100644
--- a/mu.arc
+++ b/mu.arc
@@ -220,10 +220,10 @@
          basetype  typeinfo.operand
          idx  (v field-offset))
     (when (pos 'deref metadata.operand)
-      (assert basetype!address "base @operand requests deref, but its type is not an address")
+      (assert basetype!address "@operand requests deref, but it's not an address of a record")
       (= basetype (types* basetype!elem)))
     (assert basetype!record "get on non-record @operand")
-    (assert (< -1 idx (len basetype!elems)) "@idx is out of bounds of @operand")
+    (assert (< -1 idx (len basetype!elems)) "@idx is out of bounds of record @operand")
     (list (+ base (apply + (map sz (firstn idx basetype!elems))))
           basetype!elems.idx)))