* values.h (scm_values_vtable, SCM_VALUESP): Moved here so that

[bpt/guile.git] / libguile / values.h

diff --git a/libguile/values.h b/libguile/values.h
index 79cdcf6..2077715 100644 (file)
--- a/libguile/values.h
+++ b/libguile/values.h
@@ -47,8 +47,12 @@
 
 #include "libguile/__scm.h"
 
+extern SCM scm_values_vtable;
+
+#define SCM_VALUESP(x) (SCM_STRUCTP (x)\
+                        && SCM_EQ_P (scm_struct_vtable (x), scm_values_vtable))
+
 extern SCM scm_values (SCM args);
-extern SCM scm_call_with_values (SCM producer, SCM consumer);
 extern void scm_init_values (void);
 
 #endif  /* SCM_VALUES_H */