From f69fbeb6676a5e95d5a301d66674fac34ba0338d Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Tue, 27 Mar 2001 05:50:19 +0000
Subject: [PATCH] Major cleanup

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@1069 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Source/DOH/Doh/file.c | 2 +-
 Source/DOH/Doh/fio.c  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/DOH/Doh/file.c b/Source/DOH/Doh/file.c
index bf31e60ca..b6c70cfea 100644
--- a/Source/DOH/Doh/file.c
+++ b/Source/DOH/Doh/file.c
@@ -106,7 +106,7 @@ File_tell(DOH *fo) {
     return ftell(f->filep);
   } else if (f->fd) {
 #ifdef DOH_INTFILE
-    return tell(f->fd);
+    return lseek(f->fd, 0, SEEK_CUR);
 #endif
   }
   return -1;
diff --git a/Source/DOH/Doh/fio.c b/Source/DOH/Doh/fio.c
index e221310b8..2d8e03efd 100644
--- a/Source/DOH/Doh/fio.c
+++ b/Source/DOH/Doh/fio.c
@@ -470,10 +470,10 @@ DohSplit(DOH *in, char *chs, int nsplits) {
   int c;
   
   list = NewList();
-  /*  if (String_check(in)) {
+
+  if (DohIsString(in)) {
     Seek(in,0,SEEK_SET);
   }
-  */
 
   while (1) {
     str = NewString("");