     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" }


[ 4 ] [
    V{
        T{ ##load-immediate f 0 4 }
        T{ ##shl f 0 0 0 }
    } compile-test-bb
] unit-test

[ 4 ] [
    V{
        T{ ##load-immediate f 0 4 }
        T{ ##shl-imm f 0 0 4 }
    } compile-test-bb
] unit-test

[ CHAR: l ] [
    V{
        T{ ##load-reference f 0 "hello world" }
        T{ ##load-tagged f 1 3 }
        T{ ##string-nth f 0 0 1 2 }
        T{ ##shl-imm f 0 0 4 }
    } compile-test-bb
