about summary refs log blame commit diff stats
path: root/fork.mu
blob: 3a4c1437003dcba93d42070c22dd37523fefee31 (plain) (tree)
1
2
3
4
5
6
7
8
9
                




                                                                    
          
   
  
 
                   



                                                                    
          
   
  
(function main [
  (fork (thread2 fn))
  ((default-scope scope-address) <- new (scope literal) (2 literal))
  ((x integer) <- copy (34 literal))
  { begin
    (print-primitive (x integer))
    (loop)
  }
])

(function thread2 [
  ((default-scope scope-address) <- new (scope literal) (2 literal))
  ((y integer) <- copy (35 literal))
  { begin
    (print-primitive (y integer))
    (loop)
  }
])