summaryrefslogtreecommitdiff
path: root/libguile/gsubr.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-26 20:11:22 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-26 20:11:22 +0000
commit74cc85038e5685aa7f9e81e0a9004b0717fb22a5 (patch)
tree8e7c69e7945286e9e7a65a473fb71fb50799fcf3 /libguile/gsubr.h
parent9eb364fccba89d07f1063d373df1aff911288e83 (diff)
downloadguile-74cc85038e5685aa7f9e81e0a9004b0717fb22a5.tar.gz
* Don't use string or vector macros when accessing compiled closures.
Diffstat (limited to 'libguile/gsubr.h')
-rw-r--r--libguile/gsubr.h6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/gsubr.h b/libguile/gsubr.h
index be7b4d5af..90153c30a 100644
--- a/libguile/gsubr.h
+++ b/libguile/gsubr.h
@@ -54,8 +54,10 @@
#define SCM_GSUBR_REST(x) ((int)(x)>>8)
#define SCM_GSUBR_MAX 10
-#define SCM_GSUBR_TYPE(cclo) (SCM_VELTS(cclo)[1])
-#define SCM_GSUBR_PROC(cclo) (SCM_VELTS(cclo)[2])
+#define SCM_GSUBR_TYPE(cclo) (SCM_CCLO_REF ((cclo), 1))
+#define SCM_SET_GSUBR_TYPE(cclo, type) (SCM_CCLO_SET ((cclo), 1, (type)))
+#define SCM_GSUBR_PROC(cclo) (SCM_CCLO_REF ((cclo), 2))
+#define SCM_SET_GSUBR_PROC(cclo, proc) (SCM_CCLO_SET ((cclo), 2, (proc)))
extern SCM scm_f_gsubr_apply;