Fix graph constraints for isomorphism detection
rdf/rdf.scm
457 | 457 | (filter (lambda (g2) (blank-node? (car g2))) ng2)) | |
458 | 458 | (let ((g2 (assoc-ref ng2 n1))) | |
459 | 459 | (if g2 | |
460 | - | (list 'and (generate-graph-constraints g1 g2) | |
460 | + | (list 'or (generate-graph-constraints g1 g2) | |
461 | 461 | constraints) | |
462 | 462 | 'bot)))))) | |
463 | 463 | 'bot ng1))))) |