[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima Macros.tcl, 1.4, 1.5

[Jaime E. V. <vi...@us...>]

Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv4407

Modified Files:
	Macros.tcl 
Log Message:
A minor change, to make the code more readable.


Index: Macros.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/Macros.tcl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Macros.tcl	22 Jun 2006 11:48:19 -0000	1.4
+++ Macros.tcl	27 Jun 2006 13:44:51 -0000	1.5
@@ -30,11 +30,7 @@
 #-----------------------------------------------------------------------
 #
 proc assoc { key lis args } {
-    foreach { k val } $lis {
-	if { "$k" == "$key" } {
-	    return $val
-	}
-    }
+    foreach { k val } $lis { if { "$k" == "$key" } { return $val} }
     return [lindex $args 0]
 }
 #
@@ -46,9 +42,7 @@
 #
 proc delassoc { key lis } {
     foreach { k val } $lis {
-	if { "$k" != "$key" } {
-	    lappend new $k $val
-	}
+	if { "$k" != "$key" } { lappend new $k $val}
     }
     return $new
 }