diff options
Diffstat (limited to 'stdlib/source/lux/host.old.lux')
| -rw-r--r-- | stdlib/source/lux/host.old.lux | 20 |
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." |