This commit is contained in:
Kartik K. Agaram 2015-01-29 12:13:24 -08:00
parent 63b19862f0
commit b96d34f6f6
2 changed files with 4 additions and 6 deletions

6
mu.arc
View File

@ -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)

View File

@ -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