Parent Directory | Revision Log | Patch
revision 1.37 by ttn, Thu Mar 14 03:47:42 2002 UTC | revision 1.38 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC | |
---|---|---|
# | Line 77 SCM_DEFINE (scm_definedp, "defined?", 1, | Line 77 SCM_DEFINE (scm_definedp, "defined?", 1, |
77 | { | { |
78 | SCM var; | SCM var; |
79 | ||
80 | SCM_VALIDATE_SYMBOL (1,sym); | SCM_VALIDATE_SYMBOL (1, sym); |
81 | ||
82 | if (SCM_UNBNDP (env)) | if (SCM_UNBNDP (env)) |
83 | var = scm_sym2var (sym, scm_current_module_lookup_closure (), | var = scm_sym2var (sym, scm_current_module_lookup_closure (), |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |