SICP/chapter_4: 01.rkt, eval! is apply to current environment