tests/test-pairs.scm

   1 (define l '(0 1 2 3 4 5 6))
   2
   3 (define l2 (cons 2 3))
   4
   5 (set-car! l2 1)
   6 (display (car l2))
   7
   8 ;; ;; (define l2 (cons (list-ref l 4) 2)) ; (list-ref l (getchar))
   9
  10 ;(led l) ;; invalid, but just to use l
  11
  12 (define x 9)
  13 ;(led x)
  14
  15 (display (list-ref l 6)) ;; TODO but (car l2) is ok, cdr too, but l and l2 fail, l2 with a segfault, since it's a pair and not a list, list bugs too but not as spectacular
  16 ;; TODO louche, si on fait list-ref de 1, ca marche, 4 affiche rien, 6 segfaulte