diff options
Diffstat (limited to 'stdlib/source/library/lux/data/text/buffer.lux')
| -rw-r--r-- | stdlib/source/library/lux/data/text/buffer.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/library/lux/data/text/buffer.lux b/stdlib/source/library/lux/data/text/buffer.lux index af3341930..b8955f732 100644 --- a/stdlib/source/library/lux/data/text/buffer.lux +++ b/stdlib/source/library/lux/data/text/buffer.lux @@ -34,7 +34,7 @@ ["[1]::[0]" (new [int]) (toString [] java/lang/String)]))] - (`` (for {@.old (as_is <jvm>) + (`` (for [@.old (as_is <jvm>) @.jvm (as_is <jvm>) @.js (as_is (import: (JS_Array a) ["[1]::[0]" @@ -44,24 +44,24 @@ ...https://www.lua.org/manual/5.3/manual.html#pdf-table.concat (import: (table/insert [(array.Array Text) Text] "?" Nothing)) ... https://www.lua.org/manual/5.3/manual.html#pdf-table.insert - )} + )] (as_is)))) (`` (abstract: .public Buffer - (for {@.old [Nat (-> java/lang/StringBuilder java/lang/StringBuilder)] + (for [@.old [Nat (-> java/lang/StringBuilder java/lang/StringBuilder)] @.jvm [Nat (-> java/lang/StringBuilder java/lang/StringBuilder)] @.js [Nat (-> (JS_Array Text) (JS_Array Text))] - @.lua [Nat (-> (array.Array Text) (array.Array Text))]} + @.lua [Nat (-> (array.Array Text) (array.Array Text))]] ... default (Row Text)) [(def: .public empty Buffer (:abstraction (with_expansions [<jvm> [0 function.identity]] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js [0 function.identity] - @.lua [0 function.identity]} + @.lua [0 function.identity]] ... default row.empty)))) @@ -76,7 +76,7 @@ builder)))] (:abstraction [(n.+ (//.size chunk) capacity) (|>> transform (then! chunk))]))] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js (let [[capacity transform] (:representation buffer) then! (: (-> (JS_Array Text) (JS_Array Text)) @@ -93,17 +93,17 @@ (table/insert [array chunk]) array)))] (:abstraction [(n.+ (//.size chunk) capacity) - (|>> transform then!)]))} + (|>> transform then!)]))] ... default (|> buffer :representation (row.suffix chunk) :abstraction)))) (def: .public size (-> Buffer Nat) (with_expansions [<jvm> (|>> :representation product.left)] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js <jvm> - @.lua <jvm>} + @.lua <jvm>] ... default (|>> :representation (row\mix (function (_ chunk total) @@ -116,7 +116,7 @@ (|> (java/lang/StringBuilder::new (.int capacity)) transform java/lang/StringBuilder::toString))] - (for {@.old <jvm> + (for [@.old <jvm> @.jvm <jvm> @.js (let [[capacity transform] (:representation buffer)] (|> (array.empty 0) @@ -124,7 +124,7 @@ transform (JS_Array::join [""]))) @.lua (let [[capacity transform] (:representation buffer)] - (table/concat [(transform (array.empty 0)) ""]))} + (table/concat [(transform (array.empty 0)) ""]))] ... default (row\mix (function (_ chunk total) (format total chunk)) |