Handbook
Glossary
write-tuple-fields ( mirror tuple assoc quot: ( tuple -- assoc ) -- )
Vocabulary
mongodb
.
tuple
.
persistent
.
private
Inputs
mirror
an
object
tuple
an
object
assoc
an
object
quot
a
quotation
with stack effect
( tuple -- assoc )
Outputs
None
Definition
USING:
assocs
kernel
;
IN:
mongodb.tuple.persistent.private
:
write-tuple-fields
( mirror tuple assoc quot: ( tuple -- assoc ) -- )
swap
[
[
write-field
swap
]
curry
]
dip
[
set-at
]
curry
compose
[
[
2over
write-field?
]
curry
]
dip
[
[
2drop
]
if
]
curry
compose
assoc-each
;