675
This commit is contained in:
parent
63b19862f0
commit
b96d34f6f6
6
mu.arc
6
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)
|
||||
|
|
4
mu.arc.t
4
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
|
||||
|
|
Loading…
Reference in New Issue