guile/guile-core/libguile variable.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Branch:         mvo-vcell-cleanup-1-branch
Changes by:     Marius Vollmer <address@hidden> 01/05/14 07:10:06

Modified files:
        guile-core/libguile: variable.h 

Log message:
        Added removed vcell and obarray functions back as deprecated.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/variable.h.diff?cvsroot=OldCVS&only_with_tag=mvo-vcell-cleanup-1-branch&tr1=1.17.2.1&tr2=1.17.2.2&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/variable.h
diff -u guile/guile-core/libguile/variable.h:1.16 
guile/guile-core/libguile/variable.h:1.17
--- guile/guile-core/libguile/variable.h:1.16   Fri Dec  8 09:32:56 2000
+++ guile/guile-core/libguile/variable.h        Fri Mar 30 07:03:23 2001
@@ -1,8 +1,8 @@
 /* classes: h_files */
 
-#ifndef VARIABLEH
-#define VARIABLEH
-/*     Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
+#ifndef SCM_VARIABLE_H
+#define SCM_VARIABLE_H
+/* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -55,7 +55,7 @@
  */
 extern scm_bits_t scm_tc16_variable;
 
-#define SCM_VARVCELL(V)        SCM_CDR(V)
+#define SCM_VARVCELL(V)        SCM_CELL_OBJECT_1 (V)
 #define SCM_VARIABLEP(X)       (!SCM_IMP (X) && SCM_CELL_TYPE (X) == 
scm_tc16_variable)
 #define SCM_UDVARIABLEP(X)     (SCM_VARIABLEP(X) && SCM_UNBNDP (SCM_CDR 
(SCM_VARVCELL (X))))
 #define SCM_DEFVARIABLEP(X)    (SCM_VARIABLEP(X) && !SCM_UNBNDP (SCM_CDR 
(SCM_VARVCELL (X))))
@@ -71,7 +71,7 @@
 extern SCM scm_variable_bound_p (SCM var);
 extern void scm_init_variable (void);
 
-#endif  /* VARIABLEH */
+#endif  /* SCM_VARIABLE_H */
 
 /*
   Local Variables: