test-suite/vm/t-map.scm

   1 ; Currently, map is a C function, so this is a way of testing that the
   2 ; VM is reentrant.
   3
   4 (begin
   5
   6   (define (square x)
   7     (* x x))
   8
   9   (map (lambda (x) (square x))
  10        '(1 2 3)))