Checkpoint

src/prolog/components/terms/Structure.kt

@@ -1,15 +1,16 @@
 package prolog.components.terms
 
+import prolog.Substitution
 import prolog.components.Resolvent
-import prolog.unify
+import prolog.unifyLazy
 
 typealias Argument = Term
 
 open class Structure(val name: Atom, val arguments: List<Argument>): Goal(), Head, Body, Resolvent {
     override val functor: Functor = "${name.name}/${arguments.size}"
 
-    override fun solve(goal: Goal): Boolean {
-        return unify(goal, this).isEmpty
+    override fun solve(goal: Goal): Sequence<Substitution> {
+        return unifyLazy(goal, this)
     }
 
     override fun toString(): String {