diff options
| author | Chouser <chouser@n01se.net> | 2015-01-23 22:54:15 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-01-30 12:54:42 -0500 |
| commit | f2f11f6279e1b242ba75136cd037fabdd176118a (patch) | |
| tree | 6c00050c0fd66af90a8da76daa9df7dacb82d631 /ocaml/reader.ml | |
| parent | de04357cd5f2954e2d682abb97ca2b3b90ea75d1 (diff) | |
| download | mal-f2f11f6279e1b242ba75136cd037fabdd176118a.tar.gz mal-f2f11f6279e1b242ba75136cd037fabdd176118a.zip | |
Ocaml: rename Types.MalList to Types.List
Diffstat (limited to 'ocaml/reader.ml')
| -rw-r--r-- | ocaml/reader.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ocaml/reader.ml b/ocaml/reader.ml index c32fa91..58e72fe 100644 --- a/ocaml/reader.ml +++ b/ocaml/reader.ml @@ -43,7 +43,7 @@ let rec read_list list_reader = tokens = reader.tokens} and read_quote sym tokens = let reader = read_form tokens in - {form = Types.MalList [ Types.Symbol sym; reader.form ]; + {form = Types.List [ Types.Symbol sym; reader.form ]; tokens = reader.tokens} and read_form all_tokens = match all_tokens with @@ -56,7 +56,7 @@ and read_form all_tokens = | "~@" -> read_quote "splice-unquote" tokens | "[" | "(" | "{" -> let list_reader = read_list {list_form = []; tokens = tokens} in - {form = Types.MalList list_reader.list_form; + {form = Types.List list_reader.list_form; tokens = list_reader.tokens} | _ -> {form = read_atom token; tokens = tokens} |