From 472cde4f75335f9a5558a89122fb9f7870d6c0ba Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 13 Jan 2008 18:52:14 -0500 Subject: [PATCH] Add unit test for regression --- core/kernel/kernel-tests.factor | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/core/kernel/kernel-tests.factor b/core/kernel/kernel-tests.factor index 1c4c529749..2cb308b619 100755 --- a/core/kernel/kernel-tests.factor +++ b/core/kernel/kernel-tests.factor @@ -108,3 +108,13 @@ IN: temporary [ drop foo ] unit-test-fails [ ] [ :c ] unit-test + +! Regression +: (loop) ( a b c d -- ) + >r pick r> swap >r pick r> swap + < [ >r >r >r 1+ r> r> r> (loop) ] [ 2drop 2drop ] if ; inline + +: loop ( obj obj -- ) + H{ } values swap >r dup length swap r> 0 -roll (loop) ; + +[ loop ] unit-test-fails