aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/host.old.lux
diff options
context:
space:
mode:
authorEduardo Julian2020-10-15 01:01:21 -0400
committerEduardo Julian2020-10-15 01:01:21 -0400
commitc006a5fe8e82f6fc7c8cdb9db0f44c06d229f34e (patch)
treef00af06ceb7cd77ab53aa214abb2e7383dc87500 /stdlib/source/lux/host.old.lux
parent440608bc32916329c9f3c0f2bd9a8d1152ed5da8 (diff)
Re-named "to-text" functions to "format".
Diffstat (limited to 'stdlib/source/lux/host.old.lux')
-rw-r--r--stdlib/source/lux/host.old.lux20
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/lux/host.old.lux b/stdlib/source/lux/host.old.lux
index 9582464ba..1e05c2fb7 100644
--- a/stdlib/source/lux/host.old.lux
+++ b/stdlib/source/lux/host.old.lux
@@ -961,7 +961,7 @@
(def: (annotation-param$ [name value])
(-> AnnotationParam JVM-Code)
- (format name "=" (code.to-text value)))
+ (format name "=" (code.format value)))
(def: (annotation$ [name params])
(-> Annotation JVM-Code)
@@ -1030,7 +1030,7 @@
(spaced (list "constant" name
(with-brackets (spaced (list@map annotation$ anns)))
(generic-type$ class)
- (code.to-text value))
+ (code.format value))
))
(#VariableField sm class)
@@ -1051,7 +1051,7 @@
(def: (constructor-arg$ [class term])
(-> ConstructorArg JVM-Code)
(with-brackets
- (spaced (list (generic-type$ class) (code.to-text term)))))
+ (spaced (list (generic-type$ class) (code.format term)))))
(def: (method-def$ replacer super-class [[name pm anns] method-def])
(-> (-> Code Code) Super-Class-Decl [Member-Declaration Method-Definition] JVM-Code)
@@ -1066,7 +1066,7 @@
(with-brackets (spaced (list@map generic-type$ exs)))
(with-brackets (spaced (list@map arg-decl$ arg-decls)))
(with-brackets (spaced (list@map constructor-arg$ constructor-args)))
- (code.to-text (pre-walk-replace replacer body))
+ (code.format (pre-walk-replace replacer body))
)))
(#VirtualMethod final? strict-fp? type-vars this-name arg-decls return-type body exs)
@@ -1081,8 +1081,8 @@
(with-brackets (spaced (list@map generic-type$ exs)))
(with-brackets (spaced (list@map arg-decl$ arg-decls)))
(generic-type$ return-type)
- (code.to-text (pre-walk-replace replacer (` (let [(~ (code.local-identifier this-name)) (~' _jvm_this)]
- (~ body))))))))
+ (code.format (pre-walk-replace replacer (` (let [(~ (code.local-identifier this-name)) (~' _jvm_this)]
+ (~ body))))))))
(#OverridenMethod strict-fp? class-decl type-vars this-name arg-decls return-type body exs)
(let [super-replacer (parser->replacer (s.form (do p.monad
@@ -1109,7 +1109,7 @@
(~ body)))
(pre-walk-replace replacer)
(pre-walk-replace super-replacer)
- (code.to-text))
+ (code.format))
))))
(#StaticMethod strict-fp? type-vars arg-decls return-type body exs)
@@ -1123,7 +1123,7 @@
(with-brackets (spaced (list@map generic-type$ exs)))
(with-brackets (spaced (list@map arg-decl$ arg-decls)))
(generic-type$ return-type)
- (code.to-text (pre-walk-replace replacer body)))))
+ (code.format (pre-walk-replace replacer body)))))
(#AbstractMethod type-vars arg-decls return-type exs)
(with-parens
@@ -1731,7 +1731,7 @@
(#.Apply A F)
(case (type.apply (list A) F)
#.None
- (meta.fail (format "Cannot apply type: " (type.to-text F) " to " (type.to-text A)))
+ (meta.fail (format "Cannot apply type: " (type.format F) " to " (type.format A)))
(#.Some type')
(type->class-name type'))
@@ -1740,7 +1740,7 @@
(type->class-name type')
_
- (meta.fail (format "Cannot convert to JvmType: " (type.to-text type))))))
+ (meta.fail (format "Cannot convert to JvmType: " (type.format type))))))
(syntax: #export (array-read idx array)
{#.doc (doc "Loads an element from an array."