diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-10-05 16:43:21 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-10-05 16:44:11 -0700 |
commit | fb5470bc5a25960a0ee1b0757bffe59131978e56 (patch) | |
tree | fd260952bf772b9ab145d14323baee609894586c /065duplex_list.mu | |
parent | 22a2524048157bfbd65ccf1bf66a89808ba83e0e (diff) | |
download | mu-fb5470bc5a25960a0ee1b0757bffe59131978e56.tar.gz |
2241 - back to type-checking get-address
Now duplex-list is fully non-generic and only works with characters. But we'll fix that in a bit..
Diffstat (limited to '065duplex_list.mu')
-rw-r--r-- | 065duplex_list.mu | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/065duplex_list.mu b/065duplex_list.mu index 3cf01c47..15aa6a71 100644 --- a/065duplex_list.mu +++ b/065duplex_list.mu @@ -6,13 +6,13 @@ container duplex-list [ prev:address:duplex-list ] -# result:address:duplex-list <- push-duplex x:location, in:address:duplex-list +# result:address:duplex-list <- push-duplex x:character , in:address:duplex-list recipe push-duplex [ local-scope - x:location <- next-ingredient + x:character <- next-ingredient in:address:duplex-list <- next-ingredient result:address:duplex-list <- new duplex-list:type - val:address:location <- get-address *result, value:offset + val:address:character <- get-address *result, value:offset *val <- copy x next:address:address:duplex-list <- get-address *result, next:offset *next <- copy in @@ -91,14 +91,14 @@ scenario duplex-list-handling [ ] ] -# l:address:duplex-list <- insert-duplex x:location, in:address:duplex-list +# l:address:duplex-list <- insert-duplex x:character, in:address:duplex-list # Inserts 'x' after 'in'. Returns some pointer into the list. recipe insert-duplex [ local-scope - x:location <- next-ingredient + x:character <- next-ingredient in:address:duplex-list <- next-ingredient new-node:address:duplex-list <- new duplex-list:type - val:address:location <- get-address *new-node, value:offset + val:address:character <- get-address *new-node, value:offset *val <- copy x next-node:address:duplex-list <- get *in, next:offset # in.next = new-node |