Fix typo: icon -> pointer.

diff --git a/v7/src/microcode/pros2pm.c b/v7/src/microcode/pros2pm.c
index efa9294c2017deeabf4e3efd2a8170cb53802dce..ca6211382048d1a7e53df5a2f645960df5debd6c 100644 (file)
--- 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)))));
 }
 \f
 DEFINE_PRIMITIVE ("OS2WIN-OPEN-EVENT-QID", Prim_OS2_window_open_event_qid, 0, 0, 0)