diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/stacks.h | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/stacks.h')
-rw-r--r-- | libguile/stacks.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/stacks.h b/libguile/stacks.h index 568587c4c..b6270eaca 100644 --- a/libguile/stacks.h +++ b/libguile/stacks.h @@ -3,7 +3,7 @@ #ifndef SCM_STACKS_H #define SCM_STACKS_H -/* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,2000,2001, 2004 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 @@ -52,7 +52,7 @@ SCM_API SCM scm_stack_type; #define SCM_STACK_LENGTH(stack) (SCM_STACK (stack) -> length) #define SCM_FRAMEP(obj) \ - (SCM_CONSP (obj) && SCM_STACKP (SCM_CAR (obj)) \ + (scm_is_pair (obj) && SCM_STACKP (SCM_CAR (obj)) \ && scm_is_unsigned_integer (SCM_CDR (obj), \ 0, SCM_STACK_LENGTH (SCM_CAR (obj))-1)) |