diff options
| author | Chouser <chouser@n01se.net> | 2015-01-26 23:05:13 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-01-30 12:54:43 -0500 |
| commit | 04e33074cc516fe4b79a6319c7a211002902a846 (patch) | |
| tree | 8f288508b0f9212e3b3d5e89f7ebd5e66f701b27 /ocaml/reader.ml | |
| parent | e64878d0af10d7e391e2070ddd02756042bec7b9 (diff) | |
| download | mal-04e33074cc516fe4b79a6319c7a211002902a846.tar.gz mal-04e33074cc516fe4b79a6319c7a211002902a846.zip | |
Ocaml: All optional tests passing up thru step 4
Diffstat (limited to 'ocaml/reader.ml')
| -rw-r--r-- | ocaml/reader.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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; |