diff options
author | Eduardo Julian | 2019-04-27 01:03:52 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-04-27 01:03:52 -0400 |
commit | ce71205758372cad17e09ac1b4b31dc4cea63528 (patch) | |
tree | ad382efd1ce4c9b93c237dc915d16aada4a1080e /stdlib/source/spec/compositor/common.lux | |
parent | 5b655f558a0cc78b44736eec8eabeed6216f883f (diff) |
Ported tests for type analysis.
Diffstat (limited to 'stdlib/source/spec/compositor/common.lux')
-rw-r--r-- | stdlib/source/spec/compositor/common.lux | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/stdlib/source/spec/compositor/common.lux b/stdlib/source/spec/compositor/common.lux index 4967c0f8c..df332df57 100644 --- a/stdlib/source/spec/compositor/common.lux +++ b/stdlib/source/spec/compositor/common.lux @@ -60,13 +60,16 @@ (Bundle anchor expression statement) Expander (-> expression statement) - (IO (Error [Runner Definer])))) + (IO (Error [(statement.State+ anchor expression statement) + Runner + Definer])))) (do io.monad [?state (platform.initialize expander platform bundle program)] (wrap (do error.monad - [[bundle' state] ?state - #let [state (get@ [#statement.generation - #statement.state] - state)]] - (wrap [(..runner platform state) - (..definer platform state)]))))) + [[statement-bundle statement-state] ?state + #let [generation-state (get@ [#statement.generation + #statement.state] + statement-state)]] + (wrap [[statement-bundle statement-state] + (..runner platform generation-state) + (..definer platform generation-state)]))))) |