[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-500-g82e1fe3

[ontologiae]

The following commit has been merged in the master branch:
commit 82e1fe39f9860c40d269903658dad4566950be7b
Author: ontologiae <ontologiae at ordinateur-de-ontologiae.local>
Date:   Wed Sep 23 00:40:11 2009 +0200

    more high level

diff --git a/example/shootout/nbody/planet.li b/example/shootout/nbody/planet.li
index f80fd4e..f0d7053 100644
--- a/example/shootout/nbody/planet.li
+++ b/example/shootout/nbody/planet.li
@@ -24,48 +24,18 @@ Section Public
   
   - days_per_year:REAL_64 := 365.24;
   
-  + x : REAL_64; 
-  + y : REAL_64;
-  + z : REAL_64;
-  
-  + px : REAL_64;
-  + py : REAL_64;
-  + pz : REAL_64;
-  
-  + vx : REAL_64;
-  + vy : REAL_64;
-  + vz : REAL_64;
-
-  + pvx : REAL_64;
-  + pvy : REAL_64;
-  + pvz : REAL_64;
+  + x, y, z, px, py, pz, vx, vy, vz, pvx, pvy, pvz, mass : REAL_64; 
   
   + mass : REAL_64;
   
-  - set_x v:REAL_64 <-
+  - set_x v:REAL_64  y  y:REAL_64 z z:REAL_64 <-
   (
-    x := v;
-  );
-  - set_y v:REAL_64 <-
-  (
-    y := v;
-  );
-  - set_z v:REAL_64 <-
-  (
-    z := v;
+    (x,y,z) := (v,y,z);
   );
   
-  - set_vx v:REAL_64 <-
-  (
-    vx := v;
-  );
-  - set_vy v:REAL_64 <-
-  (
-    vy := v;
-  );
-  - set_vz v:REAL_64 <-
+  - set_vx v:REAL_64 vy vy:REAL_64 vz vz:REAL_64 <-
   (
-    vz := v;
+    (vx,vy,vz) := (v,vy,vz);
   );
   
   - set_speed_to (pvx, pvy, pvz:REAL_64) <-

-- 
Lisaac compiler