diff options
| author | Bdale Garbee <bdale@gag.com> | 2017-12-21 19:05:46 -0700 | 
|---|---|---|
| committer | Bdale Garbee <bdale@gag.com> | 2017-12-21 19:05:46 -0700 | 
| commit | dbb78c8222c45f4430601deee0194b0c9dc2e79a (patch) | |
| tree | 6805b815727c58ad6c01f9163e42ab3177ee56d5 /src/scheme/ao_scheme_save.c | |
| parent | fe38c22595b050435dbacd35f1baae064fb7de75 (diff) | |
| parent | 87aab99521dc44d1d29fbb0b7f227f868f074836 (diff) | |
Merge branch 'master' into branch-1.8
Diffstat (limited to 'src/scheme/ao_scheme_save.c')
| -rw-r--r-- | src/scheme/ao_scheme_save.c | 13 | 
1 files changed, 10 insertions, 3 deletions
| diff --git a/src/scheme/ao_scheme_save.c b/src/scheme/ao_scheme_save.c index af9345b8..3a595d71 100644 --- a/src/scheme/ao_scheme_save.c +++ b/src/scheme/ao_scheme_save.c @@ -17,11 +17,15 @@  ao_poly  ao_scheme_do_save(struct ao_scheme_cons *cons)  { +#ifdef AO_SCHEME_SAVE +	struct ao_scheme_os_save *os; +#endif +  	if (!ao_scheme_check_argc(_ao_scheme_atom_save, cons, 0, 0))  		return AO_SCHEME_NIL;  #ifdef AO_SCHEME_SAVE -	struct ao_scheme_os_save *os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL]; +	os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL];  	ao_scheme_collect(AO_SCHEME_COLLECT_FULL);  	os->atoms = ao_scheme_atom_poly(ao_scheme_atoms); @@ -38,12 +42,15 @@ ao_scheme_do_save(struct ao_scheme_cons *cons)  ao_poly  ao_scheme_do_restore(struct ao_scheme_cons *cons)  { +#ifdef AO_SCHEME_SAVE +	struct ao_scheme_os_save save; +	struct ao_scheme_os_save *os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL]; +#endif  	if (!ao_scheme_check_argc(_ao_scheme_atom_save, cons, 0, 0))  		return AO_SCHEME_NIL;  #ifdef AO_SCHEME_SAVE -	struct ao_scheme_os_save save; -	struct ao_scheme_os_save *os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL]; +	os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL];  	if (!ao_scheme_os_restore_save(&save, AO_SCHEME_POOL))  		return ao_scheme_error(AO_SCHEME_INVALID, "header restore failed"); | 
