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

Fix typo: icon -> pointer.
---

diff --git a/v7/src/microcode/pros2pm.c b/v7/src/microcode/pros2pm.c
index efa9294c2..ca6211382 100644
--- a/v7/src/microcode/pros2pm.c
+++ b/v7/src/microcode/pros2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pros2pm.c,v 1.14 1995/11/04 01:53:35 cph Exp $
+$Id: pros2pm.c,v 1.15 1995/11/04 02:00:08 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -941,21 +941,21 @@ DEFINE_PRIMITIVE ("OS2-SET-POINTER", Prim_OS2_set_pointer, 2, 2, 0)
 					 (arg_ulong_integer (2)))));
 }
 
-DEFINE_PRIMITIVE ("OS2WIN-LOAD-ICON", Prim_OS2_window_load_icon, 3, 3, 0)
+DEFINE_PRIMITIVE ("OS2WIN-LOAD-POINTER", Prim_OS2_window_load_pointer, 3, 3, 0)
 {
   PRIMITIVE_HEADER (3);
   PRIMITIVE_RETURN
-    (ulong_to_integer (OS2_window_load_icon ((wid_argument (1)),
-					     (arg_ulong_integer (2)),
-					     (arg_ulong_integer (3)))));
+    (ulong_to_integer (OS2_window_load_pointer ((wid_argument (1)),
+						(arg_ulong_integer (2)),
+						(arg_ulong_integer (3)))));
 }
 
-DEFINE_PRIMITIVE ("OS2WIN-SET-POINTER", Prim_OS2_window_set_pointer, 2, 2, 0)
+DEFINE_PRIMITIVE ("OS2WIN-SET-ICON", Prim_OS2_window_set_icon, 2, 2, 0)
 {
   PRIMITIVE_HEADER (2);
   PRIMITIVE_RETURN
     (BOOLEAN_TO_OBJECT
-     (OS2_window_set_pointer ((wid_argument (1)), (arg_ulong_integer (2)))));
+     (OS2_window_set_icon ((wid_argument (1)), (arg_ulong_integer (2)))));
 }
 
 DEFINE_PRIMITIVE ("OS2WIN-OPEN-EVENT-QID", Prim_OS2_window_open_event_qid, 0, 0, 0)