From 6846d160dfdd646a59f0fa96995b970640b16c37 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 29 Dec 2014 09:17:12 -0800 Subject: 460 --- mu.arc | 4 ++-- 1 file 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 -- cgit 1.4.1-2-gfad0