     execute( -- result ) ;
 
 ! loading constants
-[ f ] [
-    V{
-        T{ ##load-constant f 0 f }
-    } compile-test-bb
-] unit-test
-
 [ "hello" ] [
     V{
         T{ ##load-reference f 0 "hello" }


[ t ] [
    V{
        T{ ##load-immediate f 1 $[ 2 cell log2 shift array type-number - ] }
        T{ ##load-reference f 0 { t f t } }
        T{ ##set-slot f 0 0 1 }
    } compile-test-bb

! one of the sources
[ t ] [
    V{
        T{ ##load-tagged f 1 $[ 2 cell log2 shift array type-number - ] }
        T{ ##load-reference f 0 { t f t } }
        T{ ##slot f 0 0 1 }
    } compile-test-bb
