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

* *.c, scm_validate.h: Use SCM_VALIDATE_NIM, not SCM_VALIDATE_NIMP

Browse source 
(none of the other validate macros have the trailing P).
This commit is contained in:
Greg J. Badros 1999-12-12 18:30:09 +00:00
parent 5bff3127b5
commit 6b5a304f6b
11 changed files with 38 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/stacks.c
View file

@ -523,7 +523,7 @@ GUILE_PROC (scm_stack_id, "stack-id", 1, 0, 0,
dframe = scm_last_debug_frame;
else
{
SCM_VALIDATE_NIMP(1,stack);
SCM_VALIDATE_NIM (1,stack);
if (SCM_DEBUGOBJP (stack))
dframe = (scm_debug_frame *) SCM_DEBUGOBJ_FRAME (stack);
else if (scm_tc7_contin == SCM_TYP7 (stack))
@ -593,7 +593,7 @@ GUILE_PROC(scm_last_stack_frame, "last-stack-frame", 1, 0, 0,
long offset = 0;
SCM stack;
SCM_VALIDATE_NIMP(1,obj);
SCM_VALIDATE_NIM (1,obj);
if (SCM_DEBUGOBJP (obj))
dframe = (scm_debug_frame *) SCM_DEBUGOBJ_FRAME (obj);
else if (scm_tc7_contin == SCM_TYP7 (obj))