summaryrefslogtreecommitdiff
path: root/test-suite/vm/t-map.scm
blob: 76bf1730f537e1c4ba7f89454e112a6f59ea43e6 (plain)
1
2
3
4
5
6
7
8
9
10
; Currently, map is a C function, so this is a way of testing that the
; VM is reentrant.

(begin

  (define (square x)
    (* x x))

  (map (lambda (x) (square x))
       '(1 2 3)))