;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Echange.scm (define-syntax echange (syntax-rules () ((echange x y) (let ((z x)) (set! x y) (set! y z))))) (let ((a 4) (b 7)) (echange a b) (display a) (display " ") (display b) (newline))