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

(define (echange x y)
   (if (and (vector? x)
	    (vector? y)
	    (= (vector-length x) 1)
	    (= (vector-length y) 1))
       (let ((z (vector-ref x 0)))
	  (vector-set! x 0 (vector-ref y 0))
	  (vector-set! y 0 z))
       #f))

(let ((a (vector 4))
      (b (vector 7)))
   (echange a b)
   (display (vector-ref a 0))
   (display " ")
   (display (vector-ref b 0))
   (newline))