From 186e1884028779dc41f5ba1fd563db2d957d1de4 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 5 Oct 2014 10:36:09 -0700
Subject: 98 - getting sick of loading literals before use

---
 mu.arc | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'mu.arc')

diff --git a/mu.arc b/mu.arc
index f1067200..57c69d1f 100644
--- a/mu.arc
+++ b/mu.arc
@@ -113,10 +113,13 @@
 
 (def m (loc)  ; read memory, respecting metadata
 ;?   (prn "m " loc " " sz.loc)
-  (if (is 1 sz.loc)
-    (memory* (addr loc))
-    (annotate 'record
-              (map memory* (addrs (addr loc) sz.loc)))))
+  (if (is 'literal ty.loc)
+        (v loc)
+      (is 1 sz.loc)
+        (memory* (addr loc))
+      :else
+        (annotate 'record
+                  (map memory* (addrs (addr loc) sz.loc)))))
 
 (def setm (loc val)  ; set memory, respecting metadata
 ;?   (prn "setm " loc " " val)
-- 
cgit 1.4.1-2-gfad0