Working on 5.11

2021-03-24 13:04:52 -04:00
parent 8a2ce473be
commit 5b7e799f2f
3 changed files with 69 additions and 22 deletions
--- a/ex-5_01-06.scm
+++ b/ex-5_01-06.scm
@@ -210,10 +210,10 @@
        (goto (label fib-loop))            ; perform recursive call
      afterfib-n-1                         ; upon return, val contains Fib(n - 1)
        (restore n)
-        ;(restore continue)
+        ;(restore continue)                ; uneeded restore
        ;; set up to compute Fib(n - 2)
        (assign n (op -) (reg n) (const 2))
-        ;(save continue)
+        ;(save continue)                   ; uneeded continue
        (assign continue (label afterfib-n-2))
        (save val)                         ; save Fib(n - 1)
        (goto (label fib-loop))