Fix typo: icon -> pointer.

diff --git a/v7/src/microcode/pros2pm.c b/v7/src/microcode/pros2pm.c
index 0297d0a4f2d971f780f30d8b67ff7ea1321ba0b5..efa9294c2017deeabf4e3efd2a8170cb53802dce 100644 (file)
--- a/v7/src/microcode/pros2pm.c
+++ b/v7/src/microcode/pros2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pros2pm.c,v 1.13 1995/11/04 01:42:27 cph Exp $
+$Id: pros2pm.c,v 1.14 1995/11/04 01:53:35 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -950,12 +950,12 @@ DEFINE_PRIMITIVE ("OS2WIN-LOAD-ICON", Prim_OS2_window_load_icon, 3, 3, 0)
                                             (arg_ulong_integer (3)))));
 }
 
-DEFINE_PRIMITIVE ("OS2WIN-SET-ICON", Prim_OS2_window_set_icon, 2, 2, 0)
+DEFINE_PRIMITIVE ("OS2WIN-SET-POINTER", Prim_OS2_window_set_pointer, 2, 2, 0)
 {
   PRIMITIVE_HEADER (2);
   PRIMITIVE_RETURN
     (BOOLEAN_TO_OBJECT
-     (OS2_window_set_icon ((wid_argument (1)), (arg_ulong_integer (2)))));
+     (OS2_window_set_pointer ((wid_argument (1)), (arg_ulong_integer (2)))));
 }
 \f
 DEFINE_PRIMITIVE ("OS2WIN-OPEN-EVENT-QID", Prim_OS2_window_open_event_qid, 0, 0, 0)

diff --git a/v7/src/runtime/os2winp.scm b/v7/src/runtime/os2winp.scm
index 46aa17397285871954fffe5e37082faf1c84825f..3b395422e74678e131ed492947dad120e9fc0965 100644 (file)
--- a/v7/src/runtime/os2winp.scm
+++ b/v7/src/runtime/os2winp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2winp.scm,v 1.11 1995/11/04 01:44:33 cph Exp $
+$Id: os2winp.scm,v 1.12 1995/11/04 01:53:49 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -97,7 +97,7 @@ MIT in each case. |#
   (os2win-get-pos 1)
   (os2win-get-size 1)
   (os2win-invalidate 5)
-  (os2win-load-icon 3)
+  (os2win-load-pointer 3)
   (os2win-load-menu 3)
   (os2win-move-cursor 3)
   (os2win-open 2)