Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( define
ponto
( lambda ( obj ) ( is-of-type obj ( quote ponto ))))
( define
make-pt
( lambda ()
( cria ( quote ponto )
( quote (( get-x set-x !) ( get-y set-y !))))))
( begin
( define get-x ( lambda ( struc ) ( vector-ref struc 1)))
( define set-x ! ( lambda ( struc a) ( vector-set ! struc 1 a )))
( begin
( define get-y ( lambda ( struc ) ( vector-ref struc (+ 1 1))))
( define set-y ! ( lambda ( struc a) ( vector-set ! struc (+ 1 1) a )))
( begin ))))
7.8 exemplo: trace
(esta seção está incompleta)
Implementaremos um método para acompanhar as chamadas e retornos de um
procedimento.
O procedimento with-trace recebe dois argumentos: o primeiro é o nome de um
procedimento, e o segundo é o procedimento; retorna outro procedimento, que realiza o
trace, mostrando o nome do procedimento sendo chamado e seus argumentos (antes da
chamada) e o valor retornado (após a chamada).
Versão Preliminar
( define with-trace
( lambda ( proc proc-original )
( lambda args
( display " chamando ")
( display ( cons proc args ))
( newline )
( let (( result ( apply proc-original args )))
( display " => ")
( display ( cons proc args ))
190
[ 27 de outubro de 2010 at 15:47 ]