diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-16 12:10:54 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-16 12:10:54 -0800 |
| commit | 8477a3dfee041c8df070ec1441645ebc4c60ff12 (patch) | |
| tree | 15d83596ec70c3619f171db7d487482881ed85ce | |
| parent | 9dc37aff73a7ba5ef724020f95747b58a17f4d93 (diff) | |
| download | mu-8477a3dfee041c8df070ec1441645ebc4c60ff12.tar.gz | |
758
| -rw-r--r-- | mu.arc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mu.arc b/mu.arc index 6c1f0254..df18ef0c 100644 --- a/mu.arc +++ b/mu.arc @@ -251,12 +251,12 @@ (def stack (routine) ((rep routine) 'call-stack)) -(mac push-stack (routine op) - `(push (obj fn-name ,op pc 0 caller-arg-idx 0) - ((rep ,routine) 'call-stack))) +(def push-stack (routine op) + (push (obj fn-name op pc 0 caller-arg-idx 0) + rep.routine!call-stack)) -(mac pop-stack (routine) - `(pop ((rep ,routine) 'call-stack))) +(def pop-stack (routine) + (pop rep.routine!call-stack)) (def top (routine) stack.routine.0) |