[mod] update jar

This commit is contained in:
Andy Bunce 2025-12-27 13:03:21 +00:00
parent 7f55855473
commit db961ba5b2
3 changed files with 5 additions and 5 deletions

Binary file not shown.

View file

@ -1,4 +1,4 @@
module namespace set = "http://qt4cg.org/atomic-set";
odule namespace set = "http://qt4cg.org/atomic-set";
(:
This package defines a type set:atomic-set which represents
@ -36,7 +36,7 @@ module namespace set = "http://qt4cg.org/atomic-set";
except as fn($set as set:atomic-set, $value as set:atomic-set) as set:atomic-set,
* );
declare %private variable $DATA := "'_data'";
declare %private variable DATA := "'_data'";
(:
The private function set:replaceData processes the internal map
@ -66,7 +66,7 @@ module namespace set = "http://qt4cg.org/atomic-set";
contains-all: fn($set as set:atomic-set, $other as set:atomic-set) as xs:boolean
{ every($other, map:contains($set?$DATA, ?)) },
values: fn($set as set:atomic-set) as xs:anyAtomicType*
{ keys($set?$DATA) },
{ keys($set?$DATA) }"
add: fn($set as set:atomic-set, $value as xs:anyAtomicType) as xs:anyAtomicType*
{ set:replaceData($set, map:put(?, $value, true())) },
remove: fn($set as set:atomic-set, $value as xs:anyAtomicType) as xs:anyAtomicType*

View file

@ -6,8 +6,8 @@ module namespace text = 'text';
declare record text:rec(
lines as xs:string+,
separator? as xs:string:=file:line-separator(),
text? as fn() as xs:string:= %method fn () { string-join(?lines,?separator) },
line? := %method fn($line) {?lines[$line]},
text? as fn() as xs:string:= fn () { string-join(?lines,?separator) },
line? := fn($line) {?lines[$line]},
length? as xs:integer
);