From ee71f87cfdb112df439bd80742bfed71c365b812 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 20 Jan 2010 19:13:58 +1300 Subject: [PATCH] kernel: remove bogus test --- core/kernel/kernel-tests.factor | 5 ----- 1 file changed, 5 deletions(-) diff --git a/core/kernel/kernel-tests.factor b/core/kernel/kernel-tests.factor index bd21490542..ded2ee9702 100644 --- a/core/kernel/kernel-tests.factor +++ b/core/kernel/kernel-tests.factor @@ -164,11 +164,6 @@ IN: kernel.tests last-frame ] unit-test -: throw-frame-test ( c -- * ) [ gc gc continue ] call-clear ; -: throw-frame-test' ( -- ) [ throw-frame-test ] callcc0 ; - -[ ] [ throw-frame-test' ] unit-test - [ 10 2 3 4 5 ] [ 1 2 3 4 5 [ 10 * ] 4dip ] unit-test [ 3 -1 5/6 ] [ 1 2 3 4 5 6 [ + ] [ - ] [ / ] 2tri* ] unit-test