* source\rtl\getsys.prg

! Fix call to SET() without setting values. ReadExit() and ReadInsert()
2002-06-21 14:51:20 +00:00
parent 30ea765971
commit 2cdf886666
1 changed files with 2 additions and 2 deletions
--- a/harbour/source/rtl/getsys.prg
+++ b/harbour/source/rtl/getsys.prg
@@ -236,10 +236,10 @@ FUNCTION GetPostValidate( oGet )
   RETURN .F.

 FUNCTION ReadExit( lExit )
-   RETURN Set( _SET_EXIT, lExit )
+   RETURN IF( ISLOGICAL( lExit ), Set( _SET_EXIT, lExit ), Set( _SET_EXIT ) )

 FUNCTION ReadInsert( lInsert )
-   RETURN Set( _SET_INSERT, lInsert )
+   RETURN IF( ISLOGICAL( lInsert ), Set( _SET_INSERT, lInsert ), Set( _SET_INSERT ) )

 FUNCTION ReadUpdated( lUpdated )
 /*   LOCAL oGetList := __GetListActive() */