mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

* Unified some rest argument checking and handling.

Browse source
This commit is contained in:
Dirk Herrmann 2000-05-18 08:47:52 +00:00
parent c8a54c4b87
commit af45e3b06a
22 changed files with 164 additions and 140 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/validate.h
View file

@ -1,4 +1,4 @@
/* $Id: validate.h,v 1.10 2000-05-15 11:47:48 dirk Exp $ */
/* $Id: validate.h,v 1.11 2000-05-18 08:47:52 dirk Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
@ -100,6 +100,15 @@
#define SCM_VALIDATE_REST_ARGUMENT(x) \
do { \
if (SCM_DEBUG_REST_ARGUMENT) { \
if (scm_ilength (x) < 0) { \
SCM_MISC_ERROR ("Rest arguments do not form a proper list.", SCM_EOL); \
} \
} \
} while (0)
#define SCM_VALIDATE_NIM(pos, scm) SCM_MAKE_VALIDATE (pos, scm, NIMP)
#define SCM_VALIDATE_BOOL(pos, flag) SCM_MAKE_VALIDATE(pos, flag, BOOLP)