Ticket #695: eliminate_hcf.txt

diff -r -u parrot-current/src/dynoplibs/myops.ops parrot-andy/src/dynoplibs/myops.ops
--- parrot-current/src/dynoplibs/myops.ops      2009-04-17 08:58:53.000000000 -0400
+++ parrot-andy/src/dynoplibs/myops.ops 2009-05-21 11:15:45.145179107 -0400
@@ -44,18 +44,6 @@
     $1 = string_from_literal(interp, "fortytwo");
 }
 
-=item B<hcf>
-
-Halt and Catch Fire. Tries to crash Parrot.  Note that making a segfault here
-is a Bad Thing, so this relies instead on Well Supported end-this-process
-behavior.
-
-=cut
-
-op hcf() :flow {
-    abort();
-}
-
 =item B<q>
 
 Support for writing a very short quine.
diff -r -u parrot-current/t/dynoplibs/myops.t parrot-andy/t/dynoplibs/myops.t
--- parrot-current/t/dynoplibs/myops.t  2009-04-17 09:00:29.000000000 -0400
+++ parrot-andy/t/dynoplibs/myops.t     2009-05-21 11:15:24.432927937 -0400
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 10;
+use Parrot::Test tests => 9;
 use Parrot::Config;
 
 =head1 NAME
@@ -51,18 +51,6 @@
 fortytwo
 OUTPUT
 
-pir_error_output_like( << 'CODE', << 'OUTPUT', "hcf" );
-.loadlib "myops_ops"
-.sub main :main
-    print "neither here\n"
-    hcf
-    print "nor there\n"
-.end
-CODE
-/neither here
-(?!nor there)/
-OUTPUT
-
 {
     my @todo;