From:	coke@cvs.perl.org	Date:	Tue Aug 19 12:32:52 2008
Subject:	[svn:parrot] r30350 - trunk/languages/tcl/src/ops

Author: coke
Date: Tue Aug 19 11:32:51 2008
New Revision: 30350

Modified:
   trunk/languages/tcl/src/ops/tcl.ops

Log:
[tcl] remove useless use of filename in a void context. Also eliminate a chunk of inadvertently repeated textinadvertently repeated text



Modified: trunk/languages/tcl/src/ops/tcl.ops
==============================================================================
--- trunk/languages/tcl/src/ops/tcl.ops	(original)
+++ trunk/languages/tcl/src/ops/tcl.ops	Tue Aug 19 11:32:51 2008
@@ -3,10 +3,6 @@
  * Copyright (C) 2006-2008, The Perl Foundation.
  */
 
-/*
-** tcl.ops
-*/
-
 #include "parrot/parrot.h"
 #include "parrot/string_funcs.h"
 #include "parrot/exceptions.h"
@@ -24,7 +20,7 @@
 =head1 DESCRIPTION
 
 A dynamic opcode library for tcl on parrot that provides a few opcodes
-that simplify PIR generation for tclPIR generation for tcl
+that simplify PIR generation for tcl.
 
 BUGS: pull out the TCL_ constants, as well as the code slot(#9)