From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 19 Dec 1995 18:18:51 +0000 (+0000)
Subject: Fix access violation caused by missing test for #f.
X-Git-Tag: 20090517-FFI~5715
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9e4666dfcbf706f504cb0183af2eee6a6dd261d2;p=mit-scheme.git

Fix access violation caused by missing test for #f.
---

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index f55d0caa3..f0d751574 100644
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2.scm,v 1.26 1995/10/31 08:08:14 cph Exp $
+;;;	$Id: os2.scm,v 1.27 1995/12/19 18:18:51 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -97,7 +97,9 @@
      (if (fix:< (string-length string) #x10000) string ""))))
 
 (define (os/interprogram-paste)
-  (convert-crlf-to-newline (os2-clipboard-read-text)))
+  (let ((text (os2-clipboard-read-text)))
+    (and text
+	 (convert-crlf-to-newline text))))
 
 (define (convert-newline-to-crlf string)
   (let ((end (string-length string)))