[Commits] [svn:einsteintoolkit] www/about/gallery/gw150914/ (Rev. 1517)

[barry.wardell at gmail.com]

User: barry.wardell
Date: 2016/06/05 05:03 PM

Modified:
 /about/gallery/gw150914/
  trajectories.m, waveform.m

Log:
 gw150914: Fix logic in command line handling

File Changes:

Directory: /about/gallery/gw150914/
===================================

File [modified]: trajectories.m
Delta lines: +3 -4
===================================================================
--- about/gallery/gw150914/trajectories.m	2016-06-05 22:03:53 UTC (rev 1516)
+++ about/gallery/gw150914/trajectories.m	2016-06-05 22:03:59 UTC (rev 1517)
@@ -1,11 +1,10 @@
 
 << SimulationTools`;
 
-simDir = Replace[$ScriptCommandLine,
-  {{___,"--simulations-directory", val_,___} :> val,
-    _ :> None}];
+simDirs = ReplaceList[$ScriptCommandLine,
+  {___, "--simulations-directory", val_, ___} :> val];
 
-$SimulationPath = Prepend[$SimulationPath, simDir];
+$SimulationPath = Join[simDirs, $SimulationPath];
 
 outDir = Directory[];
 

File [modified]: waveform.m
Delta lines: +3 -4
===================================================================
--- about/gallery/gw150914/waveform.m	2016-06-05 22:03:53 UTC (rev 1516)
+++ about/gallery/gw150914/waveform.m	2016-06-05 22:03:59 UTC (rev 1517)
@@ -1,11 +1,10 @@
 
 << SimulationTools`;
 
-simDir = Replace[$ScriptCommandLine,
-  {{___,"--simulations-directory", val_,___} :> val,
-    _ :> None}];
+simDirs = ReplaceList[$ScriptCommandLine,
+  {___, "--simulations-directory", val_, ___} :> val];
 
-$SimulationPath = Prepend[$SimulationPath, simDir];
+$SimulationPath = Join[simDirs, $SimulationPath];
 
 outDir = Directory[];