diff options
author | Kartik Agaram <vc@akkartik.com> | 2018-06-16 23:19:59 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2018-06-16 23:19:59 -0700 |
commit | b89b822439f47a490a1b764e14a1ed1b73059cba (patch) | |
tree | 8c01baef90f26f7797e2feb535bb8ccd4decd27e /064list.mu | |
parent | 5859d7056c951e56e3db760202801135784b4e5c (diff) | |
download | mu-b89b822439f47a490a1b764e14a1ed1b73059cba.tar.gz |
4260 - make address coercions explicit
'deaddress' is a terrible name. Hopefully I'll come up with something better.
Diffstat (limited to '064list.mu')
-rw-r--r-- | 064list.mu | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/064list.mu b/064list.mu index 6177e3f3..eca3ded1 100644 --- a/064list.mu +++ b/064list.mu @@ -254,7 +254,7 @@ scenario removing-from-singleton-list [ list:&:list:num <- push 3, 0 run [ list <- remove list, list - 1:num/raw <- copy list + 1:num/raw <- deaddress list ] memory-should-contain [ 1 <- 0 # back to an empty list @@ -332,7 +332,7 @@ def to-buffer in:&:list:_elem, buf:&:buffer:char -> buf:&:buffer:char [ buf <- append buf, val # now prepare next next:&:list:_elem <- rest in - nextn:num <- copy next + nextn:num <- deaddress next return-unless next buf <- append buf, [ -> ] # and recurse |