Sync

Task/Add-a-variable-to-a-class-instance-at-runtime/Logtalk/add-a-variable-to-a-class-instance-at-runtime-1.logtalk

@@ -0,0 +1,18 @@
+% we start by defining an empty object
+:- object(foo).
+
+    % ensure that complementing categories are allowed
+	:- set_logtalk_flag(complements, allow).
+
+:- end_object.
+
+% define a complementing category, adding a new predicate
+:- category(bar,
+    complements(foo)).
+
+	:- public(bar/1).
+	bar(1).
+	bar(2).
+	bar(3).
+
+:- end_category.

Task/Add-a-variable-to-a-class-instance-at-runtime/Logtalk/add-a-variable-to-a-class-instance-at-runtime-2.logtalk

@@ -0,0 +1,5 @@
+| ?- foo::bar(X).
+X = 1 ;
+X = 2 ;
+X = 3
+true