Add primitives to read and write the OS/2 clipboard.

diff --git a/v7/src/runtime/os2winp.scm b/v7/src/runtime/os2winp.scm
index 1046be828c90f98a2589a32f9bfc100000d0b047..08d256a9fd907ee8d6bec47a635b22d8d68d3dc4 100644 (file)
--- a/v7/src/runtime/os2winp.scm
+++ b/v7/src/runtime/os2winp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2winp.scm,v 1.5 1995/02/21 23:13:58 cph Exp $
+$Id: os2winp.scm,v 1.6 1995/05/02 20:58:41 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -38,6 +38,8 @@ MIT in each case. |#
 (declare (usual-integrations))
 \f
 (define-primitives
+  (os2-clipboard-read-text 0)
+  (os2-clipboard-write-text 1)
   (os2pm-synchronize 0)
   (os2ps-bitblt 6)
   (os2ps-clear 5)