summary refs log blame commit diff stats
path: root/doc/ranger.pod
blob: eaadcf5b2207bbdc12492727d8efe0732d1f5d71 (plain) (tree)
ss="o">:&:duplex-list:_elem <- last in *last <- put *last, next:offset, new return-unless new *new <- put *new, prev:offset, last ] def last in:&:duplex-list:_elem -> result:&:duplex-list:_elem [ local-scope load-ingredients result <- copy in { next:&:duplex-list:_elem <- next result break-unless next result <- copy next loop } ] # helper for debugging def dump-from x:&:duplex-list:_elem [ local-scope load-ingredients $print x, [: ] { break-unless x c:_elem <- get *x, value:offset $print c, [ ] x <- next x { is-newline?:bool <- equal c, 10/newline break-unless is-newline? $print 10/newline $print x, [: ] } loop } $print 10/newline, [---], 10/newline ]