tclex (1.2a1-15) flags.diff

Summary

 src/tcLex.c |    4 ++++
 1 file changed, 4 insertions(+)

    
download this patch

Patch contents

--- tclex-1.2a1.orig/src/tcLex.c
+++ tclex-1.2a1/src/tcLex.c
@@ -1145,7 +1145,11 @@
     
     currentLexer = LexerGetCurrent(interp);
     if (currentLexer) {
+#ifdef CMD_IS_DELETED
+	if (((Command*)currentLexer->command)->flags & CMD_IS_DELETED)
+#else
 	if (((Command*)currentLexer->command)->deleted)
+#endif
 	    /* If command has been deleted, the token is meaningless. Return no result */
 	    Tcl_ResetResult(interp);
 	else