94 - old multiprocessing experiment

2 files changed, 20 insertions, 1 deletions

diff --git a/fork.mu b/fork.mu
new file mode 100644
index 00000000..42f1956b
--- /dev/null
+++ b/fork.mu
@@ -0,0 +1,12 @@
+(main
+  (fork (thread2 fn))
+  ((1 integer) <- literal 34)
+  (print (1 integer))
+  (jmp (-2 offset))
+)
+
+(thread2
+  ((2 integer) <- literal 35)
+  (print (2 integer))
+  (jmp (-2 offset))
+)
diff --git a/mu.arc b/mu.arc
index 1fc2c39b..ceca177e 100644
--- a/mu.arc
+++ b/mu.arc
@@ -164,7 +164,7 @@
 (mac caller-arg-idx (context (o idx 0))  ; assignable
   `((((rep ,context) 'call-stack) ,idx) 'caller-arg-idx))
 
-(= scheduling-interval* 500)
+(= scheduling-interval* 5)
 
 (def parse-instr (instr)
   (iflet delim (pos '<- instr)
@@ -295,6 +295,13 @@
                 print
                   (do1 nil
                     (apply prn (map m arg)))
+
+                ; multiprocessing
+                run
+                  (run (v arg.0))
+                fork
+                  (enq (make-context (v arg.0)) contexts*)
+
                 reply
                   (do (pop-stack context)
                       (if empty.context (return ninstrs))