Changeset 431 for ccr/trunk/p/C0CRNF.m

Timestamp:

Apr 3, 2009, 12:11:29 PM (15 years ago)

Author:

George Lilly

Message:

support for checksums

File:

• ccr/trunk/p/C0CRNF.m (modified) (1 diff)

ccr/trunk/p/C0CRNF.m

@@ -37 +37 @@
  . . ;I C0CFN="STR" W C0CFN," ",C0CFJ,!
  . . I $D(@C0CFRTN@(C0CFN)) D  ; IS THIS A DUPLICATE?
- . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
+ . . . I DEBUG D  ;
+ . . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
  . . . S @C0CFRTN@(C0CFN_"_"_C0CFJ)=C0CFJ_"^"_C0CFI
  . . E  S @C0CFRTN@(C0CFN)=C0CFJ_"^"_C0CFI