summaryrefslogtreecommitdiff
path: root/libguile/procs.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/procs.h')
-rw-r--r--libguile/procs.h12
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/procs.h b/libguile/procs.h
index 3e332f0ab..7007b3d2b 100644
--- a/libguile/procs.h
+++ b/libguile/procs.h
@@ -1,8 +1,8 @@
/* classes: h_files */
-#ifndef PROCSH
-#define PROCSH
-/* Copyright (C) 1995, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
+#ifndef SCM_PROCS_H
+#define SCM_PROCS_H
+/* Copyright (C) 1995,1996,1998,1999,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
@@ -97,8 +97,8 @@ typedef struct
#define SCM_SETPROCPROPS(x, p) SCM_SETCDR (SCM_CLOSCAR (x), p)
#define SCM_SETCODE(x, e) (SCM_SET_CELL_WORD_0 (x, SCM_UNPACK (scm_cons ((e), SCM_EOL)) \
+ scm_tc3_closure))
-#define SCM_ENV(x) SCM_CDR(x)
-#define SCM_SETENV(x, e) SCM_SETCDR (x, e)
+#define SCM_ENV(x) SCM_CELL_OBJECT_1 (x)
+#define SCM_SETENV(x, e) SCM_SET_CELL_OBJECT_1 ((x), (e))
#define SCM_TOP_LEVEL(ENV) (SCM_NULLP (ENV) || (SCM_EQ_P (scm_procedure_p (SCM_CAR (ENV)), SCM_BOOL_T)))
/* Procedure-with-setter
@@ -194,7 +194,7 @@ extern SCM scm_make_cclo (SCM proc, SCM len);
#endif /* SCM_DEBUG_DEPRECATED == 0 */
-#endif /* PROCSH */
+#endif /* SCM_PROCS_H */
/*
Local Variables: