Flush spurious primitives.

diff --git a/v7/src/microcode/prdosenv.c b/v7/src/microcode/prdosenv.c
index 7c7ff5cf88cca4157974e04aae7064ea4dc92ffc..7cf27f2061f9884a58030eade7591ccbe34264d0 100644 (file)
--- a/v7/src/microcode/prdosenv.c
+++ b/v7/src/microcode/prdosenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prdosenv.c,v 1.6 1992/10/01 18:51:28 jinx Exp $
+$Id: prdosenv.c,v 1.7 1992/10/02 01:48:18 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -61,43 +61,35 @@ DEFINE_PRIMITIVE ("FILE-TIME->STRING", Prim_file_time_to_string, 1, 1,
   }
 }
 
-DEFINE_PRIMITIVE ("GET-USER-HOME-DIRECTORY", Prim_get_user_home_directory, 1, 1,
-  "Return the file name of a given user's home directory.\n\
-The user name argument must be a string.\n\
-If no such user is known, #F is returned.")
-{
-  PRIMITIVE_HEADER (1);
-  PRIMITIVE_RETURN (char_pointer_to_string ((unsigned char *) "c:\\"));
-}
-
-DEFINE_PRIMITIVE ("UID->STRING", Prim_uid_to_string, 1, 1,
-  "Return the user name corresponding to UID.\n\
-If the argument is not a known user ID, #F is returned.")
-{
-  PRIMITIVE_HEADER (1);
-  PRIMITIVE_RETURN (SHARP_F);
-}
-
-DEFINE_PRIMITIVE ("GID->STRING", Prim_gid_to_string, 1, 1,
-  "Return the group name corresponding to GID.\n\
-If the argument is not a known group ID, #F is returned.")
+DEFINE_PRIMITIVE ("DOS-SET-KEYBOARD-MODIFIER-MASK!", Prim_dos_set_kbd_mod_mask,
+                 1, 1,
+                 "Set the keyboard modifier mask")
 {
+  extern unsigned char EXFUN (dos_set_kbd_modifier_mask, (unsigned char));
   PRIMITIVE_HEADER (1);
-  PRIMITIVE_RETURN (SHARP_F);
+  
+  PRIMITIVE_RETURN (long_to_integer
+                   ((long)
+                    (dos_set_kbd_modifier_mask ((unsigned char)
+                                                (arg_integer (1))))));
 }
 
-DEFINE_PRIMITIVE ("CURRENT-UID", Prim_current_uid, 0, 0,
-  "Return Scheme's effective UID.")
+DEFINE_PRIMITIVE ("DOS-SET-KEYBOARD-TRANSLATION!",
+                 Prim_dos_set_keyboard_translation,
+                 3, 3, 0)
 {
-  PRIMITIVE_HEADER (0);
-  PRIMITIVE_RETURN (long_to_integer (0));
-}
+  int result;
+  extern int EXFUN (dos_set_kbd_translation,
+                   (unsigned, unsigned, unsigned char));
+  PRIMITIVE_HEADER (3);
+  
+  result = (dos_set_kbd_translation (((unsigned) (arg_integer (1))),
+                                    ((unsigned) (arg_integer (2))),
+                                    ((unsigned char) (arg_integer (3)))));
+  if (result < 0)
+    error_bad_range_arg (2);
 
-DEFINE_PRIMITIVE ("CURRENT-GID", Prim_current_gid, 0, 0,
-  "Return Scheme's effective GID.")
-{
-  PRIMITIVE_HEADER (0);
-  PRIMITIVE_RETURN (long_to_integer (0));
+  PRIMITIVE_RETURN (long_to_integer ((long) result));
 }
 \f
 DEFINE_PRIMITIVE ("SYSTEM", Prim_system, 1, 1,
@@ -148,34 +140,3 @@ Wait until the command terminates, returning its exit status as an integer.")
     error_external_return ();
   PRIMITIVE_RETURN (long_to_integer ((long) result));
 }
-\f
-DEFINE_PRIMITIVE ("DOS-SET-KEYBOARD-MODIFIER-MASK!", Prim_dos_set_kbd_mod_mask,
-                 1, 1,
-                 "Set the keyboard modifier mask")
-{
-  extern unsigned char EXFUN (dos_set_kbd_modifier_mask, (unsigned char));
-  PRIMITIVE_HEADER (1);
-  
-  PRIMITIVE_RETURN (long_to_integer
-                   ((long)
-                    (dos_set_kbd_modifier_mask ((unsigned char)
-                                                (arg_integer (1))))));
-}
-
-DEFINE_PRIMITIVE ("DOS-SET-KEYBOARD-TRANSLATION!",
-                 Prim_dos_set_keyboard_translation,
-                 3, 3, 0)
-{
-  int result;
-  extern int EXFUN (dos_set_kbd_translation,
-                   (unsigned, unsigned, unsigned char));
-  PRIMITIVE_HEADER (3);
-  
-  result = (dos_set_kbd_translation (((unsigned) (arg_integer (1))),
-                                    ((unsigned) (arg_integer (2))),
-                                    ((unsigned char) (arg_integer (3)))));
-  if (result < 0)
-    error_bad_range_arg (2);
-
-  PRIMITIVE_RETURN (long_to_integer ((long) result));
-}