about summary refs log blame commit diff stats
path: root/archive/0.vm.arc/fork.mu
blob: 8d6463a889e1c657f0fb5cf4bac38098a4466584 (plain) (tree)
1
2
3
4
5
6
7
8
9
                
                   
                                                              
                                
         
                                                  
          
   
  
 
                   
                                                              
                                
         
                                                  
          
   
  
(function main [
  (fork thread2:fn)
  (default-space:space-address <- new space:literal 2:literal)
  (x:integer <- copy 34:literal)
  { begin
    (print-integer nil:literal/terminal x:integer)
    (loop)
  }
])

(function thread2 [
  (default-space:space-address <- new space:literal 2:literal)
  (y:integer <- copy 35:literal)
  { begin
    (print-integer nil:literal/terminal y:integer)
    (loop)
  }
])