; Copyright (c) 1993-2008 by Richard Kelsey. See file COPYING. (define (identity x) x) ; can't get much more polymorphic than that (define (test x) (cond (#f (vector-ref (identity (make-vector 3)) 2)) (else (+ (identity (+ x 3)) (identity (+ x 2))))))
