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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.276 by ossau, Sun Jul 14 15:43:24 2002 UTC revision 1.277 by dirk, Mon Jul 15 20:39:53 2002 UTC
# Line 2290  dispatch: Line 2290  dispatch:
2290          SCM variable = SCM_CAR (x);          SCM variable = SCM_CAR (x);
2291          if (SCM_ILOCP (variable))          if (SCM_ILOCP (variable))
2292            location = scm_ilookup (variable, env);            location = scm_ilookup (variable, env);
2293          else          else if (SCM_VARIABLEP (variable))
         if (SCM_VARIABLEP (variable))  
2294            location = SCM_VARIABLE_LOC (variable);            location = SCM_VARIABLE_LOC (variable);
2295          else /* (SCM_SYMBOLP (variable)) is known to be true */          else /* (SCM_SYMBOLP (variable)) is known to be true */
2296            location = scm_lookupcar (x, env, 1);            location = scm_lookupcar (x, env, 1);
# Line 2754  dispatch: Line 2753  dispatch:
2753                    SCM_ALLOW_INTS;                    SCM_ALLOW_INTS;
2754                    PREP_APPLY (SCM_UNDEFINED, SCM_EOL);                    PREP_APPLY (SCM_UNDEFINED, SCM_EOL);
2755                    goto loop;                    goto loop;
2756    #if SCM_ENABLE_DEPRECATED == 1
2757                  case 1:                  case 1:
2758                    x = arg1;                    x = arg1;
2759                    if (SCM_NIMP (x))                    if (SCM_NIMP (x))
# Line 2763  dispatch: Line 2763  dispatch:
2763                      }                      }
2764                    else                    else
2765                      RETURN (arg1);                      RETURN (arg1);
2766    #endif
2767                  case 0:                  case 0:
2768                    RETURN (arg1);                    RETURN (arg1);
2769                  }                  }

Legend:
Removed from v.1.276  
changed lines
  Added in v.1.277

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