From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 24 Nov 2018 03:53:29 +0000 (+0000)
Subject: Default os/interprogram-paste needs to return #f or string.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b682db1256a2741e0610f0a77bb62c0ab584cd84;p=mit-scheme.git

Default os/interprogram-paste needs to return #f or string.
---

diff --git a/src/edwin/kilcom.scm b/src/edwin/kilcom.scm
index 738e4fadb..0bcac60cd 100644
--- a/src/edwin/kilcom.scm
+++ b/src/edwin/kilcom.scm
@@ -203,7 +203,7 @@ The command \\[yank] can retrieve it from there.
   ;; This dummy is re-assigned by the last display type loaded(!).  It
   ;; needs to be a display type operation.
   (declare (ignore point))
-  unspecific)
+  #f)
 
 (define (kill-ring-save string forward? context)
   (command-message-receive append-next-kill-tag