[uim-commit] r2751 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-03 01:01:46 -0800 (Tue, 03 Jan 2006)
New Revision: 2751

Modified:
   branches/r5rs/sigscheme/sigscheme.h
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigscheme.h
  - (SCM_VALUEPACKET_VALUES): Move to sigschemeinternal.h
* sigscheme/sigschemeinternal.h
  - (SCM_VALUEPACKET_VALUES): Moved from sigscheme.h


Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2006-01-03 08:50:55 UTC (rev 2750)
+++ branches/r5rs/sigscheme/sigscheme.h	2006-01-03 09:01:46 UTC (rev 2751)
@@ -436,7 +436,6 @@
     SCM_SAL_CONTINUATION_SET_TAG((o), (val))
 
 #define SCM_VALUEPACKETP(o)             SCM_SAL_VALUEPACKETP(o)
-#define SCM_VALUEPACKET_VALUES(o)       SCM_SAL_VALUEPACKET_VALUES(o)
 
 #define SCM_CONSTANTP(o)                SCM_SAL_CONSTANTP(o)
 

Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-03 08:50:55 UTC (rev 2750)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-03 09:01:46 UTC (rev 2751)
@@ -108,7 +108,9 @@
 #define SCM_ENTYPE_C_POINTER(o)      SCM_SAL_ENTYPE_C_POINTER(o)
 #define SCM_ENTYPE_C_FUNCPOINTER(o)  SCM_SAL_ENTYPE_C_FUNCPOINTER(o)
 
+/* Extraction of a valuepacket is granted only for SigScheme-internals */
 #define SCM_ENTYPE_VALUEPACKET(o)    SCM_SAL_ENTYPE_VALUEPACKET(o)
+#define SCM_VALUEPACKET_VALUES(o)    SCM_SAL_VALUEPACKET_VALUES(o)
 #if SCM_USE_VALUECONS
 #define SCM_NULLVALUESP(o)           SCM_SAL_NULLVALUESP(o)
 #define SCM_VALUECONS_CAR(o)         SCM_SAL_VALUECONS_CAR(o)