start work on new interpreter
This commit is contained in:
parent
7efa99d064
commit
2ac2f85512
15 changed files with 780 additions and 30 deletions
10
next/core/tuple.c
Normal file
10
next/core/tuple.c
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
#include <growl.h>
|
||||
|
||||
GrowlTuple *growl_unwrap_tuple(Growl obj) {
|
||||
if (obj == 0 || GROWL_IMM(obj))
|
||||
return NULL;
|
||||
GrowlObjectHeader *hdr = GROWL_UNBOX(obj);
|
||||
if (hdr->type != GROWL_TUPLE)
|
||||
return NULL;
|
||||
return (GrowlTuple *)(hdr + 1);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue