diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-29 14:37:57 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-29 14:37:57 -0700 |
commit | 502d2ea540bbb66f2bb5e649c7c7743973859092 (patch) | |
tree | 583d581c6641da87378e8536ef3d87d6bbb3a6f7 /063list.mu | |
parent | 10ffce9815b0242259730629668215b01dccbda1 (diff) | |
download | mu-502d2ea540bbb66f2bb5e649c7c7743973859092.tar.gz |
1883 - type-deducing in more .mu files
Diffstat (limited to '063list.mu')
-rw-r--r-- | 063list.mu | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/063list.mu b/063list.mu index 51a33337..0ae881d4 100644 --- a/063list.mu +++ b/063list.mu @@ -14,27 +14,27 @@ recipe push [ x:location <- next-ingredient in:address:list <- next-ingredient result:address:list <- new list:type - val:address:location <- get-address result:address:list/lookup, value:offset - val:address:location/lookup <- copy x:location - next:address:address:list <- get-address result:address:list/lookup, next:offset - next:address:address:list/lookup <- copy in:address:list - reply result:address:list + val:address:location <- get-address *result, value:offset + *val <- copy x + next:address:address:list <- get-address *result, next:offset + *next <- copy in + reply result ] # result:location <- first in:address:list recipe first [ local-scope in:address:list <- next-ingredient - result:location <- get in:address:list/lookup, value:offset - reply result:location + result:location <- get *in, value:offset + reply result ] # result:address:list <- rest in:address:list recipe rest [ local-scope in:address:list <- next-ingredient - result:address:list <- get in:address:list/lookup, next:offset - reply result:address:list + result:address:list <- get *in, next:offset + reply result ] scenario list-handling [ |