3 |
#ifndef SCM_MODULES_H |
#ifndef SCM_MODULES_H |
4 |
#define SCM_MODULES_H |
#define SCM_MODULES_H |
5 |
|
|
6 |
/* Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc. |
/* Copyright (C) 1998, 2000, 2001, 2002 Free Software Foundation, Inc. |
7 |
* |
* |
8 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
9 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
58 |
#define SCM_MODULEP(OBJ) \ |
#define SCM_MODULEP(OBJ) \ |
59 |
(!SCM_IMP (OBJ) && SCM_CELL_TYPE (OBJ) == scm_module_tag) |
(!SCM_IMP (OBJ) && SCM_CELL_TYPE (OBJ) == scm_module_tag) |
60 |
|
|
61 |
#define SCM_VALIDATE_MODULE(pos, scm) SCM_MAKE_VALIDATE (pos, scm, MODULEP) |
#define SCM_VALIDATE_MODULE(pos, scm) SCM_MAKE_VALIDATE_MSG (pos, scm, MODULEP, "module") |
62 |
|
|
63 |
/* NOTE: Indexes of module fields are dependent upon the definition of |
/* NOTE: Indexes of module fields are dependent upon the definition of |
64 |
* module-type in boot-9.scm. |
* module-type in boot-9.scm. |