コード例 #1
0
ファイル: evaluation.c プロジェクト: WilenceYao/ml
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;
}
コード例 #2
0
ファイル: eval.c プロジェクト: beatrichartz/lispy
lval *lval_eval(lval *v) {
    if (v->type == LVAL_SEXPR) {
        return lval_eval_sexpr(v);
    }

    return v;
}
コード例 #3
0
ファイル: lval.c プロジェクト: 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;
}
コード例 #4
0
ファイル: lirad.c プロジェクト: VileVial/Lirad
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;
}