;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Reinitialise.scm (define x 3) (define (reinitialise) (set! x 0)) (let () (display x) (newline) (set! x 5) (display x) (newline) (reinitialise) (display x) (newline) (set! x 7) (display x) (newline) (reinitialise) (display x) (newline) (set! x 4) (display x) (newline) (reinitialise) (display x)) (newline)