about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-12-29 09:17:12 -0800
committerKartik K. Agaram <vc@akkartik.com>2014-12-29 09:17:12 -0800
commit6846d160dfdd646a59f0fa96995b970640b16c37 (patch)
tree5de26724e4c1c28ee5183ed0e93e226483f3965f
parent613455f6f81e67ce2e704a3fd022cad920b5c1d7 (diff)
downloadmu-6846d160dfdd646a59f0fa96995b970640b16c37.tar.gz
460
-rw-r--r--mu.arc4
1 files changed, 2 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc
index 7265f363..2905f9fc 100644
--- a/mu.arc
+++ b/mu.arc
@@ -154,6 +154,8 @@
   (do1
     (annotate 'routine (obj alloc Memory-allocated-until call-stack (list
         (obj fn-name fn-name  pc 0  args args  caller-arg-idx 0))))
+    ; todo: allow routines to expand past initial allocation
+    ; todo: do memory management in mu
     (++ Memory-allocated-until 1000)))
 
 (defextend empty (x)  (isa x 'routine)
@@ -496,8 +498,6 @@
                 fork
                   ; args: fn globals-table args ...
                   (let routine  (apply make-routine (m arg.0) (map m (nthcdr 2 arg)))
-                    (= rep.routine!alloc rep.routine*!alloc)
-                    (++ rep.routine*!alloc 1000)  ; todo: allow routines to expand past initial allocation, or to spawn multiple routines at once
                     (= rep.routine!globals (when (len> arg 1) (m arg.1)))
                     (enq routine running-routines*))
                 assert