- (cluster (assq cluster-name cs))
- (already-in-cluster (if cluster
- (cdr cluster)
- '())))
- (set-clusters! graph (assq-set! cs
- cluster-name
- (cons node-id already-in-cluster)))))
+ (cluster (assoc cluster-name cs))
+ (already-in-cluster (if cluster
+ (cdr cluster)
+ '())))
+ (set-clusters! graph (assoc-set! cs
+ cluster-name
+ (cons node-id already-in-cluster)))))