diff options
| author | Eduardo Julian | 2017-05-03 23:51:16 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-05-03 23:51:16 -0400 |
| commit | c700bb87641d37b2db9f31cd8db157fce170f866 (patch) | |
| tree | 5be5950a095451f0c08707deb3628ea6edfd5df5 /new-luxc/source/luxc/compiler.lux | |
| parent | 9849d179f644927be036ee66f32e219623a59021 (diff) | |
- Removed the "S" suffix from AST tags.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/compiler.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/compiler.lux b/new-luxc/source/luxc/compiler.lux index 4ac865786..12966ba00 100644 --- a/new-luxc/source/luxc/compiler.lux +++ b/new-luxc/source/luxc/compiler.lux @@ -17,15 +17,15 @@ (def: (compile ast) (-> AST (Lux Unit)) (case ast - (^ [_ (#;FormS (list [_ (#;SymbolS ["" "_lux_def"])] - [_ (#;SymbolS ["" def-name])] - def-value - def-meta))]) + (^ [_ (#;Form (list [_ (#;Symbol ["" "_lux_def"])] + [_ (#;Symbol ["" def-name])] + def-value + def-meta))]) (&&statement;compile-def def-name def-value def-meta) - (^ [_ (#;FormS (list [_ (#;SymbolS ["" "_lux_program"])] - [_ (#;SymbolS ["" prog-args])] - prog-body))]) + (^ [_ (#;Form (list [_ (#;Symbol ["" "_lux_program"])] + [_ (#;Symbol ["" prog-args])] + prog-body))]) (&&statement;compile-program prog-args prog-body) _ |