diff options
Diffstat (limited to 'test-suite/tests/compiler.test')
-rw-r--r-- | test-suite/tests/compiler.test | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test index 6b47086be..ee688c00a 100644 --- a/test-suite/tests/compiler.test +++ b/test-suite/tests/compiler.test @@ -1,5 +1,5 @@ ;;;; compiler.test --- tests for the compiler -*- scheme -*- -;;;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. +;;;; Copyright (C) 2008, 2009, 2010, 2011 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -149,3 +149,18 @@ ((y) y) ((y z) (list y z))))))) (not (not (memv 0 (map source:addr s)))))))) + +(with-test-prefix "case-lambda" + (pass-if "self recursion to different clause" + (equal? (with-output-to-string + (lambda () + (let () + (define t + (case-lambda + ((x) + (t x 'y)) + ((x y) + (display (list x y)) + (list x y)))) + (display (t 'x))))) + "(x y)(x y)"))) |