diff options
Diffstat (limited to 'stdlib/source/lux/host.old.lux')
| -rw-r--r-- | stdlib/source/lux/host.old.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/host.old.lux b/stdlib/source/lux/host.old.lux index 896e5758d..8bc8cbea0 100644 --- a/stdlib/source/lux/host.old.lux +++ b/stdlib/source/lux/host.old.lux @@ -671,7 +671,7 @@ ($_ p.or (s.this! (' #volatile)) (s.this! (' #final)) - (:: p.monad wrap []))) + (\ p.monad wrap []))) (def: (field-decl^ type-vars) (-> (List Type-Parameter) (Parser [Member-Declaration FieldDecl])) @@ -1416,7 +1416,7 @@ (wrap [arg-inputs arg-classes arg-types]))) _ - (:: meta.monad wrap [(list) (list) (list)]))) + (\ meta.monad wrap [(list) (list) (list)]))) (def: (decorate-return-maybe member return-term) (-> Import-Member-Declaration Code Code) @@ -1648,9 +1648,9 @@ (let [class-name (sanitize class-name)] (case (load-class class-name) (#.Right class) - (:: meta.monad wrap (if (interface? class) - #Interface - #Class)) + (\ meta.monad wrap (if (interface? class) + #Interface + #Class)) (#.Left _) (meta.fail (format "Unknown class: " class-name))))) @@ -1746,10 +1746,10 @@ (def: (type->class-name type) (-> Type (Meta Text)) (if (type\= Any type) - (:: meta.monad wrap "java.lang.Object") + (\ meta.monad wrap "java.lang.Object") (case type (#.Primitive name params) - (:: meta.monad wrap name) + (\ meta.monad wrap name) (#.Apply A F) (case (type.apply (list A) F) |