diff options
| author | Eduardo Julian | 2019-09-07 20:02:14 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-09-07 20:02:14 -0400 |
| commit | 5f494b497e79bcea1d3c64d663ca5435bbf8ca2d (patch) | |
| tree | 2a7ac78ae896042039e1311a14948026cbe66585 /stdlib/source/spec/compositor.lux | |
| parent | 747abe180b2669b6af5779dcf39ab5a8b6ed11ed (diff) | |
Renamed "Statement" to "Directive".
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/spec/compositor.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/spec/compositor.lux b/stdlib/source/spec/compositor.lux index 903097950..08a294282 100644 --- a/stdlib/source/spec/compositor.lux +++ b/stdlib/source/spec/compositor.lux @@ -11,7 +11,7 @@ [tool [compiler ["." analysis] - ["." statement] + ["." directive] [phase [macro (#+ Expander)] [generation (#+ Bundle)]] @@ -42,11 +42,11 @@ )) (def: #export (spec platform bundle expander program) - (All [anchor expression statement] - (-> (IO (Platform IO anchor expression statement)) - (Bundle anchor expression statement) + (All [anchor expression directive] + (-> (IO (Platform IO anchor expression directive)) + (Bundle anchor expression directive) Expander - (-> expression statement) + (-> expression directive) Test)) (do r.monad [_ (wrap []) @@ -58,9 +58,9 @@ expander program))]] (case ?state,runner,definer - (#try.Success [[statement-bundle statement-state] runner definer]) + (#try.Success [[directive-bundle directive-state] runner definer]) (..test runner definer - (get@ [#statement.analysis #statement.state] statement-state) + (get@ [#directive.analysis #directive.state] directive-state) expander) (#try.Failure error) |