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

More validate.h devolution

Browse source 
* libguile/validate.h:
* libguile/alist.h (SCM_VALIDATE_ALISTCELL, SCM_VALIDATE_ALISTCELL_COPYSCM)
* libguile/bytevectors.h (SCM_VALIDATE_BYTEVECTOR)
* libguile/chars.h (SCM_VALIDATE_CHAR, SCM_VALIDATE_CHAR_COPY):
* libguile/print.h (SCM_VALIDATE_OPORT_VALUE, SCM_VALIDATE_PRINTSTATE):
* libguile/procs.h (SCM_VALIDATE_THUNK)
* libguile/smob.h (SCM_VALIDATE_SMOB)
* libguile/strings.h (SCM_VALIDATE_STRING): Devolve these macros from
  validate.h.
This commit is contained in:
Andy Wingo 2018-06-18 09:44:35 +02:00
parent be18b50773
commit 8a6f46ee96
8 changed files with 77 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/strings.h
View file

@ -3,8 +3,8 @@
#ifndef SCM_STRINGS_H
#define SCM_STRINGS_H
/* Copyright (C) 1995-1998, 2000, 2001, 2004-2006, 2008-2011, 2013,
* 2015-2016 Free Software Foundation, Inc.
/* Copyright (C) 1995-1998,2000-2001,2004-2006,2008-2011,2013,
* 2015-2016,2018 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -25,6 +25,7 @@
#include "libguile/__scm.h"
#include <libguile/error.h>
@ -247,6 +248,15 @@ SCM_API SCM scm_sys_stringbuf_hist (void);
#endif
#define SCM_VALIDATE_STRING(pos, str) \
do { \
SCM_ASSERT_TYPE (scm_is_string (str), str, pos, FUNC_NAME, "string"); \
} while (0)
SCM_INTERNAL void scm_init_strings (void);