1 /* Copyright (C) 1998,1999,2000,2001,2002,2003 Free Software Foundation, Inc.
3 * This library is free software; you can redistribute it and/or
4 * modify it under the terms of the GNU Lesser General Public
5 * License as published by the Free Software Foundation; either
6 * version 2.1 of the License, or (at your option) any later version.
8 * This library is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 * Lesser General Public License for more details.
13 * You should have received a copy of the GNU Lesser General Public
14 * License along with this library; if not, write to the Free Software
15 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #include "libguile/_scm.h"
22 #include "libguile/eval.h"
23 #include "libguile/fluids.h"
24 #include "libguile/modules.h"
26 #include "libguile/validate.h"
27 #include "libguile/evalext.h"
29 SCM_DEFINE (scm_defined_p
, "defined?", 1, 1, 0,
31 "Return @code{#t} if @var{sym} is defined in the lexical "
32 "environment @var{env}. When @var{env} is not specified, "
33 "look in the top-level environment as defined by the "
35 #define FUNC_NAME s_scm_defined_p
39 SCM_VALIDATE_SYMBOL (1, sym
);
42 var
= scm_sym2var (sym
, scm_current_module_lookup_closure (),
48 for (; SCM_NIMP (frames
); frames
= SCM_CDR (frames
))
50 SCM_ASSERT (SCM_CONSP (frames
), env
, SCM_ARG2
, FUNC_NAME
);
52 if (!SCM_FALSEP (scm_procedure_p (b
)))
54 SCM_ASSERT (SCM_CONSP (b
), env
, SCM_ARG2
, FUNC_NAME
);
55 for (b
= SCM_CAR (b
); SCM_NIMP (b
); b
= SCM_CDR (b
))
59 if (SCM_EQ_P (b
, sym
))
64 if (SCM_EQ_P (SCM_CAR (b
), sym
))
68 var
= scm_sym2var (sym
,
69 SCM_NIMP (frames
) ? SCM_CAR (frames
) : SCM_BOOL_F
,
73 return (SCM_FALSEP (var
) || SCM_UNBNDP (SCM_VARIABLE_REF (var
))
80 SCM_REGISTER_PROC (s_map_in_order
, "map-in-order", 2, 0, 1, scm_map
);
83 SCM_DEFINE (scm_self_evaluating_p
, "self-evaluating?", 1, 0, 0,
85 "Return #t for objects which Guile considers self-evaluating")
86 #define FUNC_NAME s_scm_self_evaluating_p
88 switch (SCM_ITAG3 (obj
))
95 /* characters, booleans, other immediates */
96 return SCM_BOOL (!SCM_NULLP (obj
));
98 switch (SCM_TYP7 (obj
))
100 case scm_tcs_closures
:
112 #if SCM_SIZEOF_LONG_LONG != 0
128 SCM_MISC_ERROR ("Internal error: Object ~S has unknown type",
130 return SCM_UNSPECIFIED
; /* never reached */
137 #include "libguile/evalext.x"