diff options
Diffstat (limited to 'test-suite/vm/t-map.scm')
-rw-r--r-- | test-suite/vm/t-map.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/vm/t-map.scm b/test-suite/vm/t-map.scm new file mode 100644 index 000000000..76bf1730f --- /dev/null +++ b/test-suite/vm/t-map.scm @@ -0,0 +1,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))) |