Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
6.3.1.2 def e set!
Quando a S-expressão é uma definição de uma nova variável, o nome e valor são adicionados
ao ambiente. Em nosso Scheme usaremos def ao invés de define.
Usaremos def-name e def-val para o nome e valor de uma nova definição.
(def name value)
(list-ref x 2)
(list-ref x 1)
( define def-name ( lambda (x) ( list-ref x 1)))
( define def-val ( lambda (x) ( list-ref x 2)))
Assim, do-def! recebe uma expressão da forma (def a b), um ambiente, e cria um
vínculo para a neste ambiente, armazenando no local de a o valor da expressão b, que é
avaliada neste momento.
( define do-def !
( lambda ( exp env )
( let (( new-binding ( cons ( def-name exp )
( list ( eval # ( def-val exp ) env )))))
(if ( null ( car env ))
( set-car ! env new-binding )
( begin
;; O cdr do ambiente passa a ser o atual car
Versão Preliminar
;; seguido do cdr anterior. O efeito é de duplicar
;; a cabeça da lista
( set-cdr ! env
( cons ( car env )
( cdr env )))
;; O car do ambiente passa a ser a nova vinculação
( set-car ! env new-binding ))))))
Quando se trata de um set!, o valor já armazenado no ambiente é modificado.
( define do-set !
( lambda ( exp env )
148
[ 27 de outubro de 2010 at 15:47 ]