[Pkg-jed-commit] r255 - trunk/packages/jed/debian

[Guenter Milde]

Author: milde-guest
Date: 2006-04-07 14:31:25 +0000 (Fri, 07 Apr 2006)
New Revision: 255

Modified:
   trunk/packages/jed/debian/defaults.sl
Log:
some code cleanup to make it easier readable


Modified: trunk/packages/jed/debian/defaults.sl
===================================================================
--- trunk/packages/jed/debian/defaults.sl	2006-04-06 14:27:41 UTC (rev 254)
+++ trunk/packages/jed/debian/defaults.sl	2006-04-07 14:31:25 UTC (rev 255)
@@ -17,13 +17,13 @@
    % skip startup scripts if jed is started as `jed-script`
    {BATCH != 2}
    % skip startup scripts if jed is started with --skip-debian-startup
-   {not(length(where(__argv == "--skip-debian-startup")))}
+   {wherefirst(__argv == "--skip-debian-startup") == NULL}
    )
 {
     $1 = listdir("/etc/jed.d/");
     foreach ( $1[ array_sort($1) ] ) {
-        $1 = ();
-        if ($1[[-3:-1]] == ".sl")
-          () = evalfile("/etc/jed.d/"+$1);
+       $2 = ();
+       if (path_extname($2) == ".sl")
+         () = evalfile("/etc/jed.d/"+$2);
     }
 }