;; Ces programmes sont sous licence CeCILL-B V1.
;; Exécution en ligne de commande avec Bigloo :
;; $ bigloo -i DivisionDecimale.scm

(define (divisionDecimale dividende diviseur)
   (if (zero? diviseur)
       'infini
       (/ dividende diviseur)))

(display (divisionDecimale 2 0))
(newline)