From 24ee8f1d788c70330754d46fd41e3f7ba46d01b0 Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Fri, 20 Oct 2000 06:39:30 +0000 Subject: [PATCH] Minor correction --- harbour/contrib/dot/pp.prg | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/harbour/contrib/dot/pp.prg b/harbour/contrib/dot/pp.prg index b38186b219..f7e0bed257 100644 --- a/harbour/contrib/dot/pp.prg +++ b/harbour/contrib/dot/pp.prg @@ -1516,7 +1516,9 @@ FUNCTION MatchRule( sKey, sLine, aRules, aResults, bStatement, bUpper ) ? "Removed repeatble: " + aTail( aMarkers[ aMP[1] - 1000 ] ) WAIT ENDIF - aSize( aMarkers[ aMP[1] - 1000 ], Len( aMarkers[ aMP[1] - 1000 ] ) - 1 ) + IF ValType( aMarkers[ aMP[1] - 1000 ] ) == 'A' + aSize( aMarkers[ aMP[1] - 1000 ], Len( aMarkers[ aMP[1] - 1000 ] ) - 1 ) + ENDIF ENDIF IF aMP[2] > 0 EXIT