mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
16 lines
258 B
Scheme
16 lines
258 B
Scheme
|
|
(import (chibi) (srfi 26) (chibi test))
|
|
|
|
(test-begin "srfi-26")
|
|
|
|
(let ((x 'orig))
|
|
(let ((f (cute list x)))
|
|
(set! x 'wrong)
|
|
(test '(orig) (f))))
|
|
|
|
(let ((x 'wrong))
|
|
(let ((f (cut list x)))
|
|
(set! x 'right)
|
|
(test '(right) (f))))
|
|
|
|
(test-end)
|