steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

yaml: using ?adjoin.

char-rename
John Benediktsson 2017-02-07 12:33:34 -08:00
parent 0f1d08a372
commit d5aa8628e3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/yaml/yaml.factor
View File

@ -234,7 +234,7 @@ PRIVATE>
GENERIC: apply-merge-keys ( already-applied-set obj -- obj' ) GENERIC: apply-merge-keys ( already-applied-set obj -- obj' )
: ?apply-merge-keys ( set obj -- obj' ) : ?apply-merge-keys ( set obj -- obj' )
2dup swap in? [ nip ] [ 2dup swap adjoin apply-merge-keys ] if ; 2dup swap ?adjoin [ apply-merge-keys ] [ nip ] if ;
M: sequence apply-merge-keys M: sequence apply-merge-keys
[ ?apply-merge-keys ] with map! ; [ ?apply-merge-keys ] with map! ;
M: object apply-merge-keys nip ; M: object apply-merge-keys nip ;