fork.mu


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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

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