Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( define-syntax when
( syntax-rules ()
((_ test body ...)
(if test
( begin body ...)))))
A macro unless é semelhante a when, a não ser pela negação do teste.
( define-syntax unless
( syntax-rules ()
((_ test body ...)
(if ( not test )
( begin body ...)))))
A macro while é também muito simples:
( define-syntax while
( syntax-rules ()
((_ test body ...)
( let loop ()
(if test
( begin body ...
( loop )))))))
7.3.5 Exemplo: framework para testes unitários
7.3.6 Sintaxe local
Versão Preliminar
Definições de macro (válidas para todo o programa) são feitas com define-syntax.
Definições locais de macro podem ser feitas com let-syntax e letrec-syntax, que
funcionam exatamente como define-syntax, exceto por definirem macros visíveis apenas
no escopo onde estiverem.
No próximo exemplo, a macro vezes é introduzida apenas para uso em um procedimento
(e não poderá ser usada fora dele):
( define linha
( lambda (n)
( let-syntax (( vezes
[ 27 de outubro de 2010 at 15:47 ]
177