2004-07-16 02:26:21 -04:00
|
|
|
typedef struct {
|
|
|
|
/* always tag_header(SBUF_TYPE) */
|
|
|
|
CELL header;
|
2005-05-05 22:30:58 -04:00
|
|
|
/* tagged */
|
2004-07-16 02:26:21 -04:00
|
|
|
CELL top;
|
2004-11-27 22:26:05 -05:00
|
|
|
/* tagged */
|
|
|
|
CELL string;
|
2004-12-10 21:46:42 -05:00
|
|
|
} F_SBUF;
|
2004-07-16 02:26:21 -04:00
|
|
|
|
2004-12-10 21:46:42 -05:00
|
|
|
F_SBUF* sbuf(F_FIXNUM capacity);
|
2004-07-16 02:26:21 -04:00
|
|
|
void primitive_sbuf(void);
|
2004-12-10 21:46:42 -05:00
|
|
|
void fixup_sbuf(F_SBUF* sbuf);
|
|
|
|
void collect_sbuf(F_SBUF* sbuf);
|