From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 Nov 1995 01:53:49 +0000 (+0000)
Subject: Fix typo: icon -> pointer.
X-Git-Tag: 20090517-FFI~5777
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=db64b7db5bd11d7f809dcfcea83db8eb021966eb;p=mit-scheme.git

Fix typo: icon -> pointer.
---

diff --git a/v7/src/microcode/pros2pm.c b/v7/src/microcode/pros2pm.c
index 0297d0a4f..efa9294c2 100644
--- 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)))));
 }
 
 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 46aa17397..3b395422e 100644
--- 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)