From cd03e291664cb102bde61d86a15f0add11809766 Mon Sep 17 00:00:00 2001
From: olpc user <olpc@xo-5d-f7-86.localdomain>
Date: Sun, 24 Nov 2019 19:23:37 -0800
Subject: messy but works.  rushing to get this done with may have been a poor
 investment.

---
 starts/meaning-vm/level-0/vref.hpp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'starts/meaning-vm/level-0/vref.hpp')

diff --git a/starts/meaning-vm/level-0/vref.hpp b/starts/meaning-vm/level-0/vref.hpp
index cffc8f5..1eb701d 100644
--- a/starts/meaning-vm/level-0/vref.hpp
+++ b/starts/meaning-vm/level-0/vref.hpp
@@ -17,13 +17,14 @@ struct vref
 
 	vref(T const & val) : vref(alloc(new value<T>(val))) { }
 
-	vref(ref const & other) : ptr(static_cast<value<T>*>(other.ptr)) { }
+	vref(ref const & other) : ptr(static_cast<value<T>*>((concept*)other)) { }
 	operator ref() { return ptr; }
 	T const & val() { return *ptr; }
 
 	// for use by containers
 	bool operator<(vref<T> const & other) const { return self.ptr < other.ptr; }
 
+protected:
 	value<T> * const ptr;
 };
 
-- 
cgit v1.2.3