Make compile and go work and answer 5.45

shared/sicp-regsim.scm

@@ -291,7 +291,7 @@
         ((eq? (car inst) 'restore)
          (make-restore inst machine stack pc))
         ((eq? (car inst) 'label)
-         (make-label pc))
+         (make-pseudo-label pc))
         ((eq? (car inst) 'perform)
          (make-perform inst machine labels ops pc))
         ((eq? (car inst) 'inc)
@@ -299,7 +299,7 @@
         (else (error "Unknown instruction type -- ASSEMBLE"
                      inst))))
 
-(define (make-label pc)
+(define (make-pseudo-label pc)
   (lambda () (advance-pc pc)))
 
 (define (make-assign inst machine labels operations pc)