save revolution. compatible?

stead/object.lua

@@ -47,16 +47,24 @@ end
 pl.use = player_use;
 
 function vobj_save(self, name, h, need)
-	local w
-	w = deref(self.where)
+	local w = deref(self.where)
+	local dsc = self.dsc
+	
+	if dsc == nil then
+		dsc = 'nil';
+	else
+		dsc = stead.string.format("%q", tostring(dsc))
+	end
+
 	if w == nil then
 		w = "nil"
 	else
 		w = stead.string.format("%q", w)
 	end
+
 	if need then
-		h:write(stead.string.format("%s  = vobj(%q,%q,%s);\n",
-			name, tostring(self.nam), tostring(self.dsc), w));
+		h:write(stead.string.format("%s  = vobj(%q,%s,%s);\n",
+			name, tostring(self.nam), dsc, w));
 	end
 	savemembers(h, self, name, false);
 end

stead/stead.lua

@@ -496,9 +496,11 @@ function list_check(self, name)
 			error ("No object: "..tostring(v))
 			return false
 		end
-		if not true --[[isObject(deref(v))]] then-- no named object!
-			allocator:auto(v, stead.string.format("%s[%d]", name, ii));
-			-- self[ii] = allocator:auto(v, stead.string.format("%s[%d]", name, ii));
+		if isObject(deref(v)) then-- no named object!
+			local n = stead.string.format("%s[%d]", name, ii);
+			v = allocator:new(n);
+			self[ii] = v; -- deref(v) 
+			for_each(v, n, check_list, isList, deref(v));
 		else
 			self[ii] = deref(v);
 		end
@@ -1929,11 +1931,6 @@ end
 
 allocator = obj {
 	nam = 'allocator',
-	auto = function(s, v, n)
-		v.key_name = n;
-		stead.table.insert(s.objects, v);
-		return 'allocator["objects"]['..stead.table.maxn(s.objects)..']';
-	end,
 	get = function(s, n, c)
 		local v = ref(c);
 		v.key_name = n;
@@ -2022,22 +2019,25 @@ input = obj { -- input object
 };
 
 function vobj_save(self, name, h, need)
-	local dsc;
-	local w
-	if type(self.dsc) ~= 'string' then
+	local dsc = self.dsc;
+	local w = deref(self.where);
+	
+	if dsc == nil then
 		dsc = 'nil';
 	else
-		dsc = "[["..self.dsc.."]]";
+		dsc = stead.string.format("%q", tostring(dsc))
 	end
-	
-	if type(deref(self.where)) ~= 'string' then
+
+	if w == nil then
 		w = 'nil';
 	else
-		w = "'"..deref(self.where).."'";
+		w = stead.string.format("%q", w)
 	end
 	
 	if need then
-		h:write(name.." = vobj("..tostring(self.key)..",[["..self.nam.."]],"..dsc..","..w..");\n");
+		h:write(stead.string.format("%s  = vobj(%s, %q, %s, %s);\n",
+			name, tostring(self.key), tostring(self.nam), dsc, w));
+
 	end
 	savemembers(h, self, name,false);
 end

stead/xact.lua

@@ -108,8 +108,6 @@ function xdsc(n)
 	return obj(v)
 end
 
-default_xdsc_obj = xdsc();
-
 xroom = stead.inherit(room, function(v)
 	v.look = stead.hook(v.look, function(f, s,...)
 		local xdsc = call(s, 'xdsc');