diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
commit | af45e3b06accc40d2c92918d5901afb793e8b247 (patch) | |
tree | 36558f693d2e1bdbcd89d8ff533c8852abf47435 /libguile/struct.c | |
parent | c8a54c4b87d561a6a4cc6464846af51f8215ef1e (diff) | |
download | guile-af45e3b06accc40d2c92918d5901afb793e8b247.tar.gz |
* Unified some rest argument checking and handling.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index f89f2e7a9..520056c46 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -379,6 +379,7 @@ SCM_DEFINE (scm_make_struct, "make-struct", 2, 0, 1, SCM_VALIDATE_VTABLE (1,vtable); SCM_VALIDATE_INUM (2,tail_array_size); + SCM_VALIDATE_REST_ARGUMENT (init); layout = SCM_PACK (SCM_STRUCT_DATA (vtable) [scm_vtable_index_layout]); basic_size = SCM_LENGTH (layout) / 2; @@ -474,6 +475,7 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1, SCM_VALIDATE_ROSTRING (1,extra_fields); SCM_VALIDATE_INUM (2,tail_array_size); + SCM_VALIDATE_REST_ARGUMENT (init); fields = scm_string_append (scm_listify (required_vtable_fields, extra_fields, |