graphs: using conjoin.

db4
John Benediktsson 2014-10-30 11:30:21 -07:00
parent 321186f6c5
commit 0fea91ff94
1 changed files with 1 additions and 1 deletions

View File

@ -14,7 +14,7 @@ IN: graphs
PRIVATE> PRIVATE>
: add-vertex ( vertex edges graph -- ) : add-vertex ( vertex edges graph -- )
[ [ nest dupd set-at ] curry with each ] if-graph ; inline [ [ nest conjoin ] curry with each ] if-graph ; inline
: add-vertex* ( vertex edges graph -- ) : add-vertex* ( vertex edges graph -- )
[ [