#lang racket ;;; lisp.rkt ;;; Pareil que racket mais on modifie la primitive car ;;; pour que (car '()) retourne '() comme en Lisp (beurk)... (provide (except-out (all-from-out racket) car) (rename-out (mon-car car))) (define (mon-car x) (if (null? x) '() (car x)))