mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* Minor fixes to error checking macros.

Browse source
This commit is contained in:
Dirk Herrmann 2001-02-28 16:58:12 +00:00
parent 1b5b19c9a9
commit 23deee8161
3 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2001-02-28 Dirk Herrmann <D.Herrmann@tu-bs.de>
* __scm.h (SCM_ASSERT_TYPE): Add missing macro parameter.
(Obviously nobody compiles with SCM_RECKLESS defined...)
* validate.h (SCM_ASSERT_RANGE): Use the argument number.
2001-02-23 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* ports.c, ports.h (scm_c_read, scm_c_write): New functions.

2
libguile/__scm.h
View file

@ -483,7 +483,7 @@ do { \
#ifdef SCM_RECKLESS
#define SCM_ASSERT(_cond, _arg, _pos, _subr)
#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr)
#define SCM_ASSERT_TYPE(_cond, _arg, _pos, _subr, _msg)
#define SCM_ASRTGO(_cond, _label)
#else
#define SCM_ASSERT(_cond, _arg, _pos, _subr) \

4
libguile/validate.h
View file

@ -1,4 +1,4 @@
/* $Id: validate.h,v 1.25 2001-01-24 00:02:43 dirk Exp $ */
/* $Id: validate.h,v 1.26 2001-02-28 16:58:12 dirk Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
@ -83,7 +83,7 @@
do { scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0)
#define SCM_ASSERT_RANGE(pos, arg, f) \
do { if (!(f)) scm_out_of_range (FUNC_NAME, arg); } while (0)
do { if (!(f)) scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0)
#define SCM_MUST_MALLOC_TYPE(type) \
((type *) scm_must_malloc (sizeof (type), FUNC_NAME))