X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_save.c;h=0ef547d88163a4e24a2591102bd2cd6190051c19;hb=16061947d4376b41e596d87f97ec53ec29d17644;hp=af9345b8d34a88c75eacb5bc6a11cefb1ce0761e;hpb=195cbeec19a6a44f309a9040d727d37fe4e2ec97;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_save.c b/src/scheme/ao_scheme_save.c
index af9345b8..0ef547d8 100644
--- a/src/scheme/ao_scheme_save.c
+++ b/src/scheme/ao_scheme_save.c
@@ -14,14 +14,18 @@
 
 #include "ao_scheme.h"
 
+#ifdef AO_SCHEME_FEATURE_SAVE
 ao_poly
 ao_scheme_do_save(struct ao_scheme_cons *cons)
 {
-	if (!ao_scheme_check_argc(_ao_scheme_atom_save, cons, 0, 0))
+#ifndef AO_SCHEME_MAKE_CONST
+	struct ao_scheme_os_save *os;
+
+	if (!ao_scheme_parse_args(_ao_scheme_atom_save, cons,
+				  AO_SCHEME_ARG_END))
 		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);
@@ -31,6 +35,8 @@ ao_scheme_do_save(struct ao_scheme_cons *cons)
 
 	if (ao_scheme_os_save())
 		return _ao_scheme_bool_true;
+#else
+	(void) cons;
 #endif
 	return _ao_scheme_bool_false;
 }
@@ -38,12 +44,14 @@ ao_scheme_do_save(struct ao_scheme_cons *cons)
 ao_poly
 ao_scheme_do_restore(struct ao_scheme_cons *cons)
 {
-	if (!ao_scheme_check_argc(_ao_scheme_atom_save, cons, 0, 0))
-		return AO_SCHEME_NIL;
-
-#ifdef AO_SCHEME_SAVE
+#ifndef AO_SCHEME_MAKE_CONST
 	struct ao_scheme_os_save save;
 	struct ao_scheme_os_save *os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL];
+	if (!ao_scheme_parse_args(_ao_scheme_atom_restore, cons,
+				  AO_SCHEME_ARG_END))
+		return AO_SCHEME_NIL;
+
+	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");
@@ -72,6 +80,10 @@ ao_scheme_do_restore(struct ao_scheme_cons *cons)
 
 		return _ao_scheme_bool_true;
 	}
+#else
+	(void) cons;
 #endif
 	return _ao_scheme_bool_false;
 }
+
+#endif /* AO_SCHEME_FEATURE_SAVE */