struct {
FILE *file;
int closeit;
-#if SHOW_ERROR_LINE
- int curr_line;
- char *filename;
-#endif
} stdio;
struct {
char *start;
char *curr;
} string;
} rep;
+#if SHOW_ERROR_LINE
+ pointer curr_line;
+ pointer filename;
+#endif
} port;
/* cell structure */
struct cell *_cdr;
} _cons;
struct {
+ size_t _length;
+ pointer _elements[0];
+ } _vector;
+ struct {
char *_data;
const foreign_object_vtable *_vtable;
} _foreign_object;