compose -- PortPush and PortReconnect simple use of `disconnect…

…Port`
cicada-lang · Sep 17, 2023 · 52add32 · 52add32
1 parent 13eefb2
commit 52add32
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/TODO.md b/TODO.md
@@ -4,10 +4,10 @@
 
 [half-edge] `Edge` has two `HalfEdge`s
 
-[half-edge] avoid using `closeAllFreePorts`
-
 [half-edge] `HalfEdge` should be a kind of `Value`
 
+[half-edge] avoid using `closeAllFreePorts`
+
 [half-edge] `@edge` as a builtin to create two `HalfEdge`s
 
 # docs

diff --git a/src/lang/compose/compose.ts b/src/lang/compose/compose.ts
@@ -96,7 +96,7 @@ export function compose(
           )
         }
 
-        disconnectPort(env.net, portEntry.connection.port)
+        disconnectPort(env.net, currentPort)
 
         env.stack.push(currentPort)
         return null
@@ -123,7 +123,7 @@ export function compose(
           )
         }
 
-        disconnectPort(env.net, portEntry.connection.port)
+        disconnectPort(env.net, currentPort)
 
         const value = env.stack.pop()
         if (value === undefined) {

diff --git a/src/lang/net/Net.ts b/src/lang/net/Net.ts
@@ -56,5 +56,6 @@ export type PortEntry = {
 //   interfere with each other.
 
 export type Connection = {
+  // halfEdge: HalfEdge
   port: Port
 }