fix input port order

docs/tests/DiffList.inet

@@ -1,24 +1,30 @@
-defnode sole -- value! end
+defnode sole
+  ------
+  value!
+end
 
-defnode null -- value! end
+defnode null
+  ------
+  value!
+end
 
 defnode cons
-  tail
   head
+  tail
   -------
   value!
 end
 
 defnode diff
-  left
   right
+  left
   ------
   value!
 end
 
 defnode diff_append
-  rest
   target!
+  rest
   ------
   return
 end
@@ -30,8 +36,8 @@ defrule diff diff_append
 end
 
 defnode diff_open
-  list
   target!
+  list
   ------
   return
 end

docs/tests/List.inet

@@ -9,21 +9,22 @@ defnode null
 end
 
 defnode cons
-  tail
   head
+  tail
   -------
   value!
 end
 
 defnode append
-  rest
   target!
+  rest
   ------
   return
 end
 
 defrule null append
-  (append)-rest return-(append)
+  (append)-rest
+  return-(append)
 end
 
 defrule cons append

docs/tests/Nat.inet

@@ -1,6 +1,13 @@
-defnode zero -- value! end
+defnode zero
+  ------
+  value!
+end
 
-defnode add1 prev -- value! end
+defnode add1
+  prev
+  ------
+  value!
+end
 
 defnode add
   target!
@@ -10,24 +17,23 @@ defnode add
 end
 
 defrule zero add
-  (add)-addend return-(add)
+  (add)-addend
+  return-(add)
 end
 
 defrule add1 add
-  (add1)-prev (add)-addend add add1
+  (add1)-prev
+  (add)-addend
+  add add1
   return-(add)
 end
 
 show zero zero add end
 run zero zero add end
 
 defnet one zero add1 end
-
 defnet two one one add end
-
-defnet four
-  two two add
-end
+defnet four two two add end
 
 show two end
 run two end

docs/tests/Nat.inet.out

@@ -1,42 +1,42 @@
-(zero₀)-value!target-(add₂)
-(zero₁)-value addend-(add₂)
+(zero₁)-value!target-(add₂)
+(zero₀)-value addend-(add₂)
 (add₂)-return
 
-(zero₄)-value
+(zero₃)-value
 
-(add1₈)-value!target-(add₁₁)
-(add1₁₀)-value addend-(add₁₁)
+(add1₁₀)-value!target-(add₁₁)
+(add1₈)-value addend-(add₁₁)
 (zero₉)-value prev-(add1₁₀)
 (zero₇)-value prev-(add1₈)
 (add₁₁)-return
 
-(add1₁₅)-value prev-(add1₁₉)
-(zero₁₄)-value prev-(add1₁₅)
+(zero₁₂)-value prev-(add1₂₁)
+(add1₂₁)-value prev-(add1₁₉)
 (add1₁₉)-value
 
-(add1₂₆)-value!target-(add₂₉)
-(add1₂₁)-value!target-(add₂₄)
-(add₂₄)-return target-(add₃₀)
-(add₂₉)-return addend-(add₃₀)
-(add1₂₈)-value addend-(add₂₉)
+(add1₃₀)-value!target-(add₃₁)
+(add1₂₅)-value!target-(add₂₆)
+(add₂₆)-return addend-(add₃₂)
+(add₃₁)-return target-(add₃₂)
+(add1₂₈)-value addend-(add₃₁)
+(zero₂₉)-value prev-(add1₃₀)
 (zero₂₇)-value prev-(add1₂₈)
-(zero₂₅)-value prev-(add1₂₆)
-(add1₂₃)-value addend-(add₂₄)
+(add1₂₃)-value addend-(add₂₆)
+(zero₂₄)-value prev-(add1₂₅)
 (zero₂₂)-value prev-(add1₂₃)
-(zero₂₀)-value prev-(add1₂₁)
-(add₃₀)-return
+(add₃₂)-return
 
-(add1₄₄)-value prev-(add1₅₀)
-(add1₅₀)-value prev-(add1₄₈)
-(add1₃₉)-value prev-(add1₄₄)
-(zero₃₈)-value prev-(add1₃₉)
+(zero₃₃)-value prev-(add1₆₀)
+(add1₆₀)-value prev-(add1₅₆)
+(add1₅₆)-value prev-(add1₅₄)
+(add1₅₄)-value prev-(add1₄₈)
 (add1₄₈)-value
 
-(zero₅₁)-value!target-(add₅₄)
-(add1₅₃)-value addend-(add₅₄)
-(zero₅₂)-value prev-(add1₅₃)
-(add₅₄)-return
+(add1₆₃)-value!target-(add₆₄)
+(zero₆₁)-value addend-(add₆₄)
+(zero₆₂)-value prev-(add1₆₃)
+(add₆₄)-return
 
-(zero₅₆)-value prev-(add1₅₇)
-(add1₅₇)-value
+(zero₆₆)-value prev-(add1₇₁)
+(add1₇₁)-value
 

src/lang/definitions/NodeDefinition.ts

@@ -16,8 +16,11 @@ export class NodeDefinition implements Definition {
   meaning(net: Net): Node {
     const node = createNode(this.mod, this.name, this.input, this.output)
 
-    // NOTE Be careful about the order.
-    for (const port of [...node.input].reverse()) {
+    // Be careful about the order:
+    // The first input port connects
+    // with the port on the top of the stack.
+
+    for (const port of node.input) {
       const top = net.ports.pop()
       if (top === undefined) {
         throw new Error(`I expect a port on top of the stack`)