Move [throw] implementation into C.

1 files changed, 5 insertions, 18 deletions

diff --git a/library/init.tcl b/library/init.tcl
index 2d8e303..74fd5f4 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -3,7 +3,7 @@
 # Default system startup file for Tcl-based applications.  Defines
 # "unknown" procedure and auto-load facilities.
 #
-# RCS: @(#) $Id: init.tcl,v 1.118 2008/12/19 03:54:44 dgp Exp $
+# RCS: @(#) $Id: init.tcl,v 1.119 2009/01/13 20:30:04 dkf Exp $
 #
 # Copyright (c) 1991-1993 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -113,8 +113,8 @@ namespace eval tcl {
     }
 }
 
-# TIP #329: [try] and [throw]
-# These are *temporary* implementations, to be replaced with ones in C and
+# TIP #329: [try]
+# This is a *temporary* implementation, to be replaced with one in C and
 # bytecode at a later date before 8.6.0
 namespace eval ::tcl::control {
     # These are not local, since this allows us to [uplevel] a [catch] rather
@@ -125,20 +125,7 @@ namespace eval ::tcl::control {
 
     variable magicCodes { ok 0 error 1 return 2 break 3 continue 4 }
 
-    namespace export throw try
-
-    # ::tcl::control::throw --
-    #
-    #	Creates an error with machine-readable "code" parts and
-    #	human-readable "message" parts.
-    #
-    # Arguments:
-    #	throw -		list describing errorcode
-    #	message -	Human-readable version of error
-    proc throw {type message} {
-	return -code error -errorcode $type -errorinfo $message -level 1 \
-	    $message
-    }
+    namespace export try
 
     # ::tcl::control::try --
     #
@@ -306,7 +293,7 @@ namespace eval ::tcl::control {
 	return -options $_opts $_em
     }
 }
-namespace import ::tcl::control::*
+namespace import ::tcl::control::try
 
 # Windows specific end of initialization