sicp-ex-5.13



<< Previous exercise (5.12) | Index | Next exercise (5.14) >>


meteorgan

  
  
 In make-new-machine, change the code of lookup-register 
 (define (lookup-register name) 
      (let ((val (assoc name register-table))) 
       (if val 
           (cadr val) 
           (begin 
            (allocate-register name) 
            (lookup-register name)))))