Index: generic/nsf.c =================================================================== diff -u -r3cbf24ff95e38976cdc905ec0e8014d9d754ad6f -rf671281a240219965d436e2bfa762baf85274ca6 --- generic/nsf.c (.../nsf.c) (revision 3cbf24ff95e38976cdc905ec0e8014d9d754ad6f) +++ generic/nsf.c (.../nsf.c) (revision f671281a240219965d436e2bfa762baf85274ca6) @@ -14409,11 +14409,11 @@ } paramPtr->flags |= NSF_ARG_FORWARD; - } else if (strncmp(option, "slotassign", 10) == 0) { + } else if (strncmp(option, "slotset", 7) == 0) { if (unlikely(paramPtr->slotObj == NULL)) { - return NsfPrintError(interp, "parameter option 'slotassign' must follow 'slot='"); + return NsfPrintError(interp, "parameter option 'slotset' must follow 'slot='"); } - paramPtr->flags |= NSF_ARG_SLOTASSIGN; + paramPtr->flags |= NSF_ARG_SLOTSET; } else if (strncmp(option, "slotinitialize", 14) == 0) { if (unlikely(paramPtr->slotObj == NULL)) { @@ -14548,9 +14548,9 @@ INCR_REF_COUNT(paramPtr->slotObj); } else if (optionLength >= 6 && strncmp(option, "method=", 7) == 0) { - if ((paramPtr->flags & (NSF_ARG_ALIAS|NSF_ARG_FORWARD|NSF_ARG_SLOTASSIGN)) == 0) { + if ((paramPtr->flags & (NSF_ARG_ALIAS|NSF_ARG_FORWARD|NSF_ARG_SLOTSET)) == 0) { return NsfPrintError(interp, "parameter option 'method=' only allowed for parameter " - "types 'alias', 'forward' and 'slotassign'"); + "types 'alias', 'forward' and 'slotset'"); } if (paramPtr->method) {DECR_REF_COUNT(paramPtr->method);} paramPtr->method = Tcl_NewStringObj(option + 7, optionLength - 7); @@ -26667,7 +26667,7 @@ * is typically a forwarder to the slot object. */ - if (paramPtr->flags & NSF_ARG_SLOTASSIGN) { + if (paramPtr->flags & NSF_ARG_SLOTSET) { NsfObject *slotObject = GetSlotObject(interp, paramPtr->slotObj); if (likely(slotObject != NULL)) {