Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

commenting out name used for debugging stack references into the heap

Browse source
This commit is contained in:
Alex Shinn 2009-10-14 10:42:10 +09:00
parent 62c390d68e
commit e50950316f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
include/chibi/sexp.h
View file

@ -121,7 +121,7 @@ typedef sexp (*sexp_proc7) (sexp, sexp, sexp, sexp, sexp, sexp, sexp);
struct sexp_gc_var_t { struct sexp_gc_var_t {
sexp *var; sexp *var;
char *name; /* char *name; */
struct sexp_gc_var_t *next; struct sexp_gc_var_t *next;
}; };
@ -269,7 +269,7 @@ struct sexp_struct {
#define sexp_gc_preserve(ctx, x, y) \ #define sexp_gc_preserve(ctx, x, y) \
do { \ do { \
(y).var = &(x); \ (y).var = &(x); \
(y).name = #x; \ /* (y).name = #x; */ \
(y).next = sexp_context_saves(ctx); \ (y).next = sexp_context_saves(ctx); \
sexp_context_saves(ctx) = &(y); \ sexp_context_saves(ctx) = &(y); \
} while (0) } while (0)