diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-29 12:13:24 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-29 12:13:24 -0800 |
commit | b96d34f6f613789537e65973f0048dd3ca7681de (patch) | |
tree | 1ca5176c7812955fc8f1eb3eb5d303c60b5e540a /mu.arc | |
parent | 63b19862f0d665d41679ff4630541054e21fd556 (diff) | |
download | mu-b96d34f6f613789537e65973f0048dd3ca7681de.tar.gz |
675
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 6 |
1 files changed, 2 insertions, 4 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) |