about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--mu.arc6
-rw-r--r--mu.arc.t4
2 files changed, 4 insertions, 6 deletions
diff --git a/mu.arc b/mu.arc
index ed1eb253..ef1bd936 100644
--- a/mu.arc
+++ b/mu.arc
@@ -1257,10 +1257,8 @@
 ; and replace-names-with-location.
 (def convert-names (instrs (o name))
 ;?   (tr "convert-names " instrs)
-  (let location (table)
-    (= location*.name (assign-names-to-location instrs name))
-;?     (tr "save names for function @name: @(tostring:pr location*.name)")
-    )
+  (= location*.name (assign-names-to-location instrs name))
+;?   (tr "save names for function @name: @(tostring:pr location*.name)") ;? 1
   (replace-names-with-location instrs name))
 
 (def assign-names-to-location (instrs name)
diff --git a/mu.arc.t b/mu.arc.t
index f2bbd7f3..cbf7c6a2 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -2218,7 +2218,7 @@
 ;? (prn memory*)
 (when (or (~is memory*.2 4)
           (~is memory*.3 5))
-  (prn "F - multiple calls to a function can share locals"))
+  (prn "F - closures using /space metadata"))
 ;? (quit)
 
 (reset)
@@ -2249,7 +2249,7 @@
 ;? (prn memory*)
 (when (or (~is memory*.2 4)
           (~is memory*.3 5))
-  (prn "F - multiple calls to a function can share locals"))
+  (prn "F - /names to name variables in outer spaces"))
 ;? (quit)
 
 )  ; section 20