diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-02-25 20:47:42 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-02-25 20:47:42 -0800 |
commit | d0e29245f9d37256093026d5080452db8a694136 (patch) | |
tree | 0f6658fa7dc42e7ac30c0641d1bcd562c332f3ec /073list.mu | |
parent | dcc060c7d4ef56b978beb34ddce8d8ffcec94fa6 (diff) | |
download | mu-d0e29245f9d37256093026d5080452db8a694136.tar.gz |
2707
Diffstat (limited to '073list.mu')
-rw-r--r-- | 073list.mu | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/073list.mu b/073list.mu index 1971b98e..1dedf573 100644 --- a/073list.mu +++ b/073list.mu @@ -53,7 +53,6 @@ scenario list-handling [ recipe to-text in:address:shared:list:_elem -> result:address:shared:array:character [ local-scope -#? $print [to text: list], 10/newline load-ingredients buf:address:shared:buffer <- new-buffer 80 buf <- to-buffer in, buf @@ -63,7 +62,6 @@ recipe to-text in:address:shared:list:_elem -> result:address:shared:array:chara # variant of 'to-text' which stops printing after a few elements (and so is robust to cycles) recipe to-text-line in:address:shared:list:_elem -> result:address:shared:array:character [ local-scope -#? $print [to text line: list], 10/newline load-ingredients buf:address:shared:buffer <- new-buffer 80 buf <- to-buffer in, buf, 6 # max elements to display @@ -72,7 +70,6 @@ recipe to-text-line in:address:shared:list:_elem -> result:address:shared:array: recipe to-buffer in:address:shared:list:_elem, buf:address:shared:buffer -> buf:address:shared:buffer [ local-scope -#? $print [to buffer: list], 10/newline load-ingredients { break-if in @@ -85,7 +82,6 @@ recipe to-buffer in:address:shared:list:_elem, buf:address:shared:buffer -> buf: # now prepare next next:address:shared:list:_elem <- rest in nextn:number <- copy next -#? buf <- append buf, nextn reply-unless next space:character <- copy 32/space buf <- append buf, space:character |