/[guile]/guile/guile-core/libguile/modules.h
ViewVC logotype

Diff of /guile/guile-core/libguile/modules.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC revision 1.22 by mvo, Sun Oct 20 22:59:01 2002 UTC
# Line 3  Line 3 
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
# Line 58  SCM_API scm_t_bits scm_module_tag; Line 58  SCM_API scm_t_bits scm_module_tag;
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.

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26