diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-04 22:23:42 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-04 22:23:42 +0000 |
commit | 0b5f3f34c220329c3fadcf75d881fab168ae35e7 (patch) | |
tree | e212fa265339e4e70e2af96807ccab57c2db173a /libguile/objects.c | |
parent | db62436ececa2f491a9c87147062f5a16aec813e (diff) | |
download | guile-0b5f3f34c220329c3fadcf75d881fab168ae35e7.tar.gz |
* options.c, objects.c, keywords.c, gc.c: Some redundant SCM_NIMP
removals from Dirk Hermann.
* alist.c: Rename formals to match the parameter names in the
documentation, updates to documentation. Thanks Dirk Hermann!
Diffstat (limited to 'libguile/objects.c')
-rw-r--r-- | libguile/objects.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/objects.c b/libguile/objects.c index cc8b6e57c..358b3a3e6 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -373,8 +373,7 @@ GUILE_PROC (scm_operator_p, "operator?", 1, 0, 0, "") #define FUNC_NAME s_scm_operator_p { - return SCM_BOOL(SCM_NIMP (obj) - && SCM_STRUCTP (obj) + return SCM_BOOL(SCM_STRUCTP (obj) && SCM_I_OPERATORP (obj) && !SCM_I_ENTITYP (obj)); } |