Welcome to the CHICKEN Scheme pasting service

run-tests added by certainty on Wed May 15 16:34:58 2013

(define (run-tests file)
  (let ((result
         (call-with-environment-variables '(("TEST_USE_ANSI" . "1"))
           (lambda ()
             (run/string (csi -s ,file))))))
    (print result)
    (classify-test-result result)))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 3 when given `'(1 2 3 4)' as input?