From 1c0b4c8ea8e32dddef0da99bbac546952bb20e44 Mon Sep 17 00:00:00 2001
From: user <user@localhost.localdomain>
Date: Thu, 26 Dec 2019 13:31:23 -0800
Subject: wip

---
 starts/meaning-vm/level-2/funcs.cpp  | 1 +
 starts/meaning-vm/level-2/habits.cpp | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'starts/meaning-vm/level-2')

diff --git a/starts/meaning-vm/level-2/funcs.cpp b/starts/meaning-vm/level-2/funcs.cpp
index 3ecedb3..b11413f 100644
--- a/starts/meaning-vm/level-2/funcs.cpp
+++ b/starts/meaning-vm/level-2/funcs.cpp
@@ -21,6 +21,7 @@ ref makehabit(ref name, std::initializer_list<ref> argnames, std::function<void(
 	ref habit = level1::a(concepts::habit, name);
 	ref infn = a(habit-information-needed);
 	habit.set(information-needed, infn);
+	//habit.set(concepts::habit, concepts::habit);
 	ref posinf = infn;
 	for (auto argname : argnames) {
 		ref nextinf = a(habit-information);
diff --git a/starts/meaning-vm/level-2/habits.cpp b/starts/meaning-vm/level-2/habits.cpp
index dfb9014..4900daf 100644
--- a/starts/meaning-vm/level-2/habits.cpp
+++ b/starts/meaning-vm/level-2/habits.cpp
@@ -189,12 +189,12 @@ int createhabits()
 	ahabit(list-entry-unmake, ((list-entry, le)),
 	{
 		ref prev = (list-entry-previous)(le);
-		ref next = (list-entry-next)(le);
+		ref n = (list-entry-next)(le);
 		if (prev != nothing) {
-			set(prev, "next", next);
+			set(prev, next, n);
 		}
 		if (next != nothing) {
-			set(next, "previous", prev);
+			set(n, previous, prev);
 		}
 		(concept-unmake)(le);
 	});
-- 
cgit v1.2.3