From b96d34f6f613789537e65973f0048dd3ca7681de Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 29 Jan 2015 12:13:24 -0800 Subject: 675 --- mu.arc | 6 ++---- mu.arc.t | 4 ++-- 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 -- cgit 1.4.1-2-gfad0