mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

* eval.h (SCM_ENTER_FRAME_HDLR, SCM_APPLY_FRAME_HDLR,

Browse source 
SCM_EXIT_FRAME_HDLR): Use SCM_PACK to convert data to a SCM value
	rather than casting to SCM.
This commit is contained in:
Dirk Herrmann 2003-04-23 17:20:26 +00:00
parent c178c3a68b
commit a98e8e985b
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de>
* 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.
2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de> 2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de>
* sort.c, pairs.h: Removed unnecessary includes. * sort.c, pairs.h: Removed unnecessary includes.

9
libguile/eval.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_EVAL_H #ifndef SCM_EVAL_H
#define 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 * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -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_ENTER_FRAME_P scm_evaluator_trap_table[1].val
#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[2].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_EXIT_FRAME_P scm_evaluator_trap_table[3].val
#define SCM_ENTER_FRAME_HDLR (SCM)(scm_evaluator_trap_table[4].val) #define SCM_ENTER_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[4].val))
#define SCM_APPLY_FRAME_HDLR (SCM)(scm_evaluator_trap_table[5].val) #define SCM_APPLY_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[5].val))
#define SCM_EXIT_FRAME_HDLR (SCM)(scm_evaluator_trap_table[6].val) #define SCM_EXIT_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[6].val))
#define SCM_N_EVALUATOR_TRAPS 7 #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()) #define SCM_TOP_LEVEL_LOOKUP_CLOSURE (scm_current_module_lookup_closure())
SCM_API const char scm_s_expression[]; SCM_API const char scm_s_expression[];
SCM_API const char scm_s_test[]; SCM_API const char scm_s_test[];
SCM_API const char scm_s_body[]; SCM_API const char scm_s_body[];