diff options
| author | Eduardo Julian | 2020-12-02 06:42:20 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-02 06:42:20 -0400 |
| commit | 34e310622bdeb1d0588c0664c0e78cbaa84f837c (patch) | |
| tree | eb7c04185b57c781f45d0ccdb955bc9afc2aa8dc /stdlib/source/program/compositor | |
| parent | 982a19e0c5d57b53f9726b780fec4c18f0787b4f (diff) | |
Re-named "::" and ":::" macros to "\" and "\\", to be consistent with the convention that only macros that deal with types may start with a colon.
Diffstat (limited to 'stdlib/source/program/compositor')
| -rw-r--r-- | stdlib/source/program/compositor/export.lux | 10 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index b1e525098..bc2ced5a3 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -49,7 +49,7 @@ (function (_ [path source-code]) (do try.monad [path (|> path - (text.replace-all (:: system separator) .module-separator) + (text.replace-all (\ system separator) .module-separator) tar.path) source-code (tar.content source-code)] (wrap (#tar.Normal [path @@ -57,8 +57,8 @@ tar.none ..no-ownership source-code]))))) - (:: try.monad map row.from-list) - (:: promise.monad wrap)))) + (\ try.monad map row.from-list) + (\ promise.monad wrap)))) (def: #export (export system [sources target]) (-> (file.System Promise) Export (Promise (Try Any))) @@ -66,7 +66,7 @@ [tar (..library system sources) package (: (Promise (Try (file.File Promise))) (file.get-file promise.monad system - (format target (:: system separator) ..file)))] + (format target (\ system separator) ..file)))] (|> tar (binary.run tar.writer) - (!.use (:: package over-write))))) + (!.use (\ package over-write))))) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index 0f2d00905..318c3705c 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -36,8 +36,8 @@ (-> (file.System Promise) Library Import (Action Import)) (do (try.with promise.monad) [library (: (Action (File Promise)) - (!.use (:: system file) [library])) - binary (!.use (:: library content) [])] + (!.use (\ system file) [library])) + binary (!.use (\ library content) [])] (promise\wrap (do {! try.monad} [tar (<b>.run tar.parser binary)] |