fixing quote

This commit is contained in:
Alex Shinn 2009-03-26 17:24:28 +09:00
parent efdf5b7861
commit af7148ce02

2
eval.c
View file

@ -285,7 +285,7 @@ sexp analyze (sexp x, sexp env) {
res = analyze_seq(x, env); res = analyze_seq(x, env);
break; break;
case CORE_QUOTE: case CORE_QUOTE:
res = sexp_make_lit(x); res = sexp_make_lit(sexp_cadr(x));
break; break;
default: default:
res = sexp_compile_error("unknown core form", sexp_list1(op)); res = sexp_compile_error("unknown core form", sexp_list1(op));