From abaa2db7b2b0143c9e45637b2bc691e78a3e492b Mon Sep 17 00:00:00 2001
From: Ryszard Glab <rglab@imid.med.pl>
Date: Mon, 17 Jan 2000 12:18:36 +0000
Subject: [PATCH] ChangeLog 20000117-13:30 GMT+1

---
 harbour/ChangeLog         | 6 ++++++
 harbour/source/rtl/type.c | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index af8a4e1321..0435343bec 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+20000117-13:30 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/rtl/type.c
+	* added hb_retc( "U" ) for initial implementation of TYPE() function
+	(due to a very popular demand :)
+
 20000117-12:25 GMT+1 Ryszard Glab <rglab@imid.med.pl>
 
     *source/rtl/achoice.prg
diff --git a/harbour/source/rtl/type.c b/harbour/source/rtl/type.c
index d00f27183a..b71fa2b039 100644
--- a/harbour/source/rtl/type.c
+++ b/harbour/source/rtl/type.c
@@ -65,5 +65,6 @@
 
 HARBOUR HB_TYPE( void )
 {
-   /* TODO: Implement this. */
+    /* TODO: implement this */
+    hb_retc( "U" );
 }