;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Globale.scm (define a 3) (define (f x) (display (* x 2)) (newline) (set! a (* x 2))) (set! a 3) (let ((n 4)) (f (+ a n)))