From a730e83215ae7b15a3311afec79c5b4ce0700ed4 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Sun, 27 Nov 2011 23:01:50 +1000
Subject: Implement [alias] in C

And allow commands to set a temporary name for the purpose
of generating error messages

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 stdlib.tcl | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'stdlib.tcl')

diff --git a/stdlib.tcl b/stdlib.tcl
index caacc00..e05f93c 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -1,13 +1,3 @@
-# Create a single word alias (proc) for one or more words
-# e.g. alias x info exists
-# if {[x var]} ...
-proc alias {name args} {
-	set prefix $args
-	proc $name args prefix {
-		tailcall {*}$prefix {*}$args
-	}
-}
-
 # Creates an anonymous procedure
 proc lambda {arglist args} {
 	set name [ref {} function lambda.finalizer]
-- 
cgit v1.1