IsNUM() -> ISNUMBER() in dbeval, and added to makefile.vc

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19991127-15:57 EDT Paul Tucker <ptucker@sympatico.ca>
+  * source/rdd/dbeval.prg
+    * ISNUM() -> ISNUMBER
+  * makefile.vc
+    + dbeval.prg
+
 19991127-15:57 EST Paul Tucker <ptucker@sympatico.ca>
   * Clipper does _not_ quit if //noalert is specified and alert() is called.
   * source/rtl/alert.prg

harbour/makefile.vc

@@ -200,6 +200,7 @@ RDD_OBJS = \
     $(OBJ_DIR)\dbcmd.obj \
     $(OBJ_DIR)\dbf0.obj \
     $(OBJ_DIR)\dbf1.obj \
+    $(OBJ_DIR)\dbeval.obj \
     $(OBJ_DIR)\dbnubs.obj \
     $(OBJ_DIR)\dbstrux.obj \
     $(OBJ_DIR)\sdf0.obj \
@@ -891,6 +892,12 @@ $(OBJ_DIR)\dbf0.obj : $(RDD_DIR)\dbf0.c
 $(OBJ_DIR)\dbf1.obj : $(RDD_DIR)\dbf1.c
     $(CC) $(CLIBFLAGS) -Fo$@ $**
 
+$(RDD_DIR)\dbeval.c : $(RDD_DIR)\dbeval.prg
+    $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$@
+
+$(OBJ_DIR)\dbeval.obj : $(RDD_DIR)\dbeval.c
+    $(CC) $(CLIBFLAGS) -Fo$@ $**
+
 $(OBJ_DIR)\dbnubs.obj : $(RDD_DIR)\dbnubs.c
     $(CC) $(CLIBFLAGS) -Fo$@ $**
 

harbour/source/rdd/dbeval.prg

@@ -108,7 +108,7 @@ FUNCTION dbEval( bBlock, bFor, bWhile, nNext, nRecord, lRest )
          RETURN NIL
       ENDIF
 
-      IF ISNUM( nRecord )
+      IF ISNUMBER( nRecord )
 
          IF nRecord >= 1 .AND. nRecord <= LastRec()
             dbGoto( nRecord )