Esempio n. 1
0
lval* lval_eval(lval* v) {
    /* Evaluate Sexpressions */
    if (v->type == LVAL_SEXPR) { return lval_eval_sexpr(v); }

    /* All other lval types remain the same */
    return v;
}
Esempio n. 2
0
lval *lval_eval(lval *v) {
    if (v->type == LVAL_SEXPR) {
        return lval_eval_sexpr(v);
    }

    return v;
}
Esempio n. 3
0
File: lval.c Progetto: tsmarsh/lispy
lval* lval_eval(lenv* e, lval* v) {
  if (v->type == LVAL_SYM) {
    lval* x = lenv_get(e, v);
    lval_del(v);
    return x;
  }
  if (v->type == LVAL_SEXPR) { return lval_eval_sexpr(e, v); }
  return v;
}
Esempio n. 4
0
lval *lval_eval(lenv *e, lval *v)
{
  if (v->type == LVAL_SYM)
  {
    lval *x = lenv_get(e, v);
    lval_del(v);
    return x;
  }
  // eval sexpr
  if (v->type == LVAL_SEXPR)
  {
    return lval_eval_sexpr(e, v);
  }
  // other lval type remain the same
  return v;
}