avoid using unavail if it is null

svn: r14486
2009-04-10 21:07:56 +00:00 · 2009-04-10 21:07:56 +00:00 · b9bb356a17
commit b9bb356a17
parent 01e7df1780
1 changed files with 2 additions and 1 deletions
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@ -2769,7 +2769,8 @@ static int do_peekc_skip(Scheme_Object *port, Scheme_Object *skip,
 				      NULL);

    if (!v) {
-      *unavail = 1;
+      if (unavail)
+        *unavail = 1;
      return 0;
    }