From 07c9aa5bca34272b32638173facf705932af1cba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Mon, 16 Jun 2014 14:44:04 +0100
Subject: [PATCH] fix typo

---
 H/YapTerm.h    | 2 +-
 os/pl-stream.c | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/H/YapTerm.h b/H/YapTerm.h
index 70b91c28b..ee6545c6a 100644
--- a/H/YapTerm.h
+++ b/H/YapTerm.h
@@ -80,7 +80,7 @@ typedef void *Atom;
 #define UInt_FORMAT "%lu"
 
 #   elif SIZEOF_LONG_LONG_INT==8
-/
+
 #define Int_FORMAT "%I64d"
 #define UInt_FORMAT "%I64u"
 
diff --git a/os/pl-stream.c b/os/pl-stream.c
index 396c09917..573a13d75 100755
--- a/os/pl-stream.c
+++ b/os/pl-stream.c
@@ -2897,6 +2897,9 @@ Sopen_file(const char *path, const char *how)
   enum {lnone=0,lread,lwrite} lock = lnone;
   IOSTREAM *s;
   IOENC enc = ENC_UNKNOWN;
+#if __WINDOWS__
+  int wait = TRUE;
+#endif
 
 #if __ANDROID__
     if (strstr(path, "/assets/") == path) {
@@ -2914,8 +2917,10 @@ Sopen_file(const char *path, const char *how)
       case 'r':				/* no record */
 	flags &= ~SIO_RECORDPOS;
         break;
-      case 'L':				/* lock r: read, w: write */
-//	wait = FALSE;
+#if __WINDOWS__
+     case 'L':				/* lock r: read, w: write */
+	wait = FALSE;
+#endif
         /*FALLTHROUGH*/
       case 'l':				/* lock r: read, w: write */
 	if ( *++how == 'r' )