/[guile]/guile/guile-core/libguile/evalext.c
ViewVC logotype

Diff of /guile/guile-core/libguile/evalext.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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 (),

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26