(begin
  (setref! 
    (apply-env-ref env id)
    (eval-expression rhs-exp env))
  (number->expressed 1))





What is code in the varassign-exp case of eval-expression?