summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-04-23 17:20:26 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-04-23 17:20:26 +0000
commita98e8e985b7549a798da0cfeece8532353d4d952 (patch)
tree1f5fd6ed4221ff2089ebd602865edb964699b7c3 /libguile/eval.h
parentc178c3a68b63d56588b36062f9c38e5926b1f09f (diff)
downloadguile-a98e8e985b7549a798da0cfeece8532353d4d952.tar.gz
* eval.h (SCM_ENTER_FRAME_HDLR, SCM_APPLY_FRAME_HDLR,
SCM_EXIT_FRAME_HDLR): Use SCM_PACK to convert data to a SCM value rather than casting to SCM.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r--libguile/eval.h11
1 files changed, 6 insertions, 5 deletions
diff --git a/libguile/eval.h b/libguile/eval.h
index 9ecb88129..69ab43155 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -3,7 +3,7 @@
#ifndef SCM_EVAL_H
#define SCM_EVAL_H
-/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@@ -33,7 +33,7 @@
SCM_API scm_t_option scm_eval_opts[];
-#define SCM_EVAL_STACK scm_eval_opts[0].val
+#define SCM_EVAL_STACK scm_eval_opts[0].val
#define SCM_N_EVAL_OPTIONS 1
SCM_API long scm_eval_stack;
@@ -46,9 +46,9 @@ SCM_API SCM scm_eval_options_interface (SCM setting);
#define SCM_ENTER_FRAME_P scm_evaluator_trap_table[1].val
#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[2].val
#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[3].val
-#define SCM_ENTER_FRAME_HDLR (SCM)(scm_evaluator_trap_table[4].val)
-#define SCM_APPLY_FRAME_HDLR (SCM)(scm_evaluator_trap_table[5].val)
-#define SCM_EXIT_FRAME_HDLR (SCM)(scm_evaluator_trap_table[6].val)
+#define SCM_ENTER_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[4].val))
+#define SCM_APPLY_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[5].val))
+#define SCM_EXIT_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[6].val))
#define SCM_N_EVALUATOR_TRAPS 7
@@ -127,6 +127,7 @@ typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM arg2);
#define SCM_TOP_LEVEL_LOOKUP_CLOSURE (scm_current_module_lookup_closure())
+
SCM_API const char scm_s_expression[];
SCM_API const char scm_s_test[];
SCM_API const char scm_s_body[];