From 04e33074cc516fe4b79a6319c7a211002902a846 Mon Sep 17 00:00:00 2001 From: Chouser Date: Mon, 26 Jan 2015 23:05:13 -0500 Subject: Ocaml: All optional tests passing up thru step 4 --- ocaml/reader.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'ocaml/reader.ml') diff --git a/ocaml/reader.ml b/ocaml/reader.ml index a6c2366..9754444 100644 --- a/ocaml/reader.ml +++ b/ocaml/reader.ml @@ -69,7 +69,9 @@ and read_form all_tokens = | "^" -> let meta = read_form tokens in let value = read_form meta.tokens in - {form = with_meta value.form meta.form; tokens = value.tokens} + {(*form = with_meta value.form meta.form;*) + form = Types.list [Types.symbol "with-meta"; value.form; meta.form]; + tokens = value.tokens} | "(" -> let list_reader = read_list {list_form = []; tokens = tokens} in {form = Types.list list_reader.list_form; -- cgit v1.2.3