Implement till 5.10

2021-03-23 14:04:36 -04:00
parent 402776f481
commit 8a2ce473be
2 changed files with 87 additions and 4 deletions
--- a/misc/sicp-regsim.scm
+++ b/misc/sicp-regsim.scm
@@ -240,6 +240,8 @@
         (make-restore inst machine stack pc))
        ((eq? (car inst) 'perform)
         (make-perform inst machine labels ops pc))
+        ((eq? (car inst) 'inc)
+         (make-inc inst machine labels ops pc))
        (else (error "Unknown instruction type -- ASSEMBLE"
                     inst))))

@@ -281,7 +283,6 @@
 (define (test-condition test-instruction)
  (cdr test-instruction))

-
 (define (make-branch inst machine labels flag pc)
  (let ((dest (branch-dest inst)))
    (if (label-exp? dest)