From 0bbb462fa623c7125083931c04dcd7b9fdea5027 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 14 Feb 2008 01:04:10 -0600 Subject: [PATCH] Add unit test --- core/optimizer/optimizer-tests.factor | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/core/optimizer/optimizer-tests.factor b/core/optimizer/optimizer-tests.factor index e5e0d9fe77..6a76892246 100755 --- a/core/optimizer/optimizer-tests.factor +++ b/core/optimizer/optimizer-tests.factor @@ -313,3 +313,19 @@ TUPLE: silly-tuple a b ; [ t ] [ \ lift-throw-tail-regression compiled? ] unit-test [ 3 "an integer" ] [ 3 lift-throw-tail-regression ] unit-test [ "hi" "a string" ] [ "hi" lift-throw-tail-regression ] unit-test + +: lift-loop-tail-test-1 ( a quot -- ) + over even? [ + [ >r 3 - r> call ] keep lift-loop-tail-test-1 + ] [ + over 0 < [ + 2drop + ] [ + [ >r 2 - r> call ] keep lift-loop-tail-test-1 + ] if + ] if ; inline + +: lift-loop-tail-test-2 + 10 [ ] lift-loop-tail-test-1 1 2 3 ; + +[ 1 2 3 ] [ lift-loop-tail-test-2 ] unit-test