projects
/
muddle-interpreter.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Implement OBLISTs
[muddle-interpreter.git]
/
src
/
object.c
diff --git
a/src/object.c
b/src/object.c
index ff65f41651060c96e103a875cc06d96c1d6f53e3..e64e68eb6001751eb320143a05dedfb93c81ff9a 100644
(file)
--- a/
src/object.c
+++ b/
src/object.c
@@
-64,3
+64,10
@@
static object rest(const object *lst) {
return o;
}
*/
+
+dope_object *
+uv_dope (const uvector_object * o)
+{
+ return (dope_object *) & HEAP_OBJECT (o->val.body)[(o->val.len + 1) / 2 +
+ 1];
+}