From 9e4666dfcbf706f504cb0183af2eee6a6dd261d2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 19 Dec 1995 18:18:51 +0000
Subject: [PATCH] Fix access violation caused by missing test for #f.

---
 v7/src/edwin/os2.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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)))
-- 
2.25.1