diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-19 22:29:08 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-19 22:29:08 -0700 |
| commit | 3ff287f410830345bea080703a2397b896dae277 (patch) | |
| tree | 10ce9fb8640c4b1f89d747033d91eeaabbf280b0 | |
| parent | 7144ae7638bd3452dc251d976bcce63953508cb1 (diff) | |
| download | mu-3ff287f410830345bea080703a2397b896dae277.tar.gz | |
7065
| -rw-r--r-- | apps/tile/environment.mu | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index addb5764..88035bcc 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -80,7 +80,8 @@ $process:body: { { break-if-= #? print-string 0, "processing function definition\n" - process-sandbox-define sandbox, key + var functions/ecx: (addr handle function) <- get self, functions + process-sandbox-define sandbox, functions, key break $process:body } #? print-string 0, "processing sandbox\n" @@ -554,7 +555,7 @@ $process-sandbox-rename:body: { # of the sandbox to be a new function with that name. Replace the last line # with a call to the appropriate function. # Precondition: cursor-call-path is a singleton (not within a call) -fn process-sandbox-define _sandbox: (addr sandbox), key: grapheme { +fn process-sandbox-define _sandbox: (addr sandbox), functions: (addr handle function), key: grapheme { $process-sandbox-define:body: { var sandbox/esi: (addr sandbox) <- copy _sandbox var new-name-ah/edi: (addr handle word) <- get sandbox, partial-name-for-function @@ -572,8 +573,8 @@ $process-sandbox-define:body: { break-if-!= #? print-string 0, "define\n" # HERE - var empty: (handle word) - copy-handle empty, new-name-ah + var empty-word: (handle word) + copy-handle empty-word, new-name-ah break $process-sandbox-define:body } # |