sicp-ex-5.44



<< Previous exercise (5.43) | Index | Next exercise (5.45) >>


meteorgan

  
  
  
 (define (overwrite? operator ct-env) 
  (let ((r (find-variable operator ct-env))) 
   (eq? r 'not-found))) 
 (define (open-code? exp ct-env) 
  (and (memq (car exp) '(+ - * /)) 
          (overwrite? (car exp) ct-env))) 

Rptx

My modified procedures are in Exercise 5.38