archive/0.vm.arc/fork.mu

   1 (function main [
   2   (fork thread2:fn)
   3   (default-space:space-address <- new space:literal 2:literal)
   4   (x:integer <- copy 34:literal)
   5   { begin
   6     (print-integer nil:literal/terminal x:integer)
   7     (loop)
   8   }
   9 ])
  10
  11 (function thread2 [
  12   (default-space:space-address <- new space:literal 2:literal)
  13   (y:integer <- copy 35:literal)
  14   { begin
  15     (print-integer nil:literal/terminal y:integer)
  16     (loop)
  17   }
  18 ])