;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Portee.scm (define z 0) (define y 0) (define (v x) (let ((u (* x x))) (set! z x) u)) (set! y 4) (let ((t (/ 1 y))) (display (v t)) (newline))