mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

Diffstat (limited to 'archive/1.vm/exception1.mu')

0 files changed, 0 insertions, 0 deletions

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - continuation2.mu</title> <meta name="Generator" content="Vim/8.0"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <pre id='vimCodeElement'> 1 # Example program showing that a 'paused' continuation can be 'resumed' 2 # multiple times from the same point (but with changes to data). 3 # 4 # To run: 5 # $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a> 6 # $ cd mu 7 # $ ./mu continuation2.mu 8 # 9 # Expected output: 10 # 1 11 # 2 12 # 3 13 14 def main [ 15 local-scope 16 l:&:list:num <- copy 0 17 l <- push 3, l 18 l <- push 2, l 19 l <- push 1, l 20 k:continuation <- call-with-continuation-mark 100/mark, create-yielder, l 21 { 22 x:num, done?:bool <- call k 23 break-if done? 24 $print x 10/newline 25 loop 26 } 27 ] 28 29 def create-yielder l:&:list:num -> n:num, done?:bool [ 30 local-scope 31 load-inputs 32 return-continuation-until-mark 100/mark 33 done? <- equal l, 0/nil 34 return-if done?, 0/false 35 n <- first l 36 l <- rest l 37 ] </pre> </body> </html>


context:
space:
mode: