new accessors
parent
7b35f8ba48
commit
bb5980a561
|
@ -48,7 +48,7 @@ TUPLE: base64 string ;
|
|||
C: <base64> base64
|
||||
|
||||
M: base64 item>xml
|
||||
base64-string >base64 "base64" build-tag ;
|
||||
string>> >base64 "base64" build-tag ;
|
||||
|
||||
: params ( seq -- xml )
|
||||
[ item>xml "value" build-tag "param" build-tag ] map
|
||||
|
|
Loading…
Reference in New Issue