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 a2a81a62e478134ddd188ec4188c0fbe9a2c869d..e64e68eb6001751eb320143a05dedfb93c81ff9a 100644
(file)
--- a/
src/object.c
+++ b/
src/object.c
@@
-21,7
+21,7
@@
License along with this file. If not, see
uint32_t
list_length (const list_object * o)
{
uint32_t
list_length (const list_object * o)
{
- const pool_object *p = POOL_OBJECT (o->head);
+ const pool_object *p = POOL_OBJECT (o->
val.
head);
uint32_t n = 0;
while (p)
{
uint32_t n = 0;
while (p)
{
@@
-64,3
+64,10
@@
static object rest(const object *lst) {
return o;
}
*/
return o;
}
*/
+
+dope_object *
+uv_dope (const uvector_object * o)
+{
+ return (dope_object *) & HEAP_OBJECT (o->val.body)[(o->val.len + 1) / 2 +
+ 1];
+}