From 0855ff84ac1e3c051f98fe3d2f5f31551ff34403 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 17 Sep 1992 00:45:29 +0000 Subject: [PATCH] Flush indirect primitives. They make no sense in DOS. --- v7/src/microcode/prdosfs.c | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/v7/src/microcode/prdosfs.c b/v7/src/microcode/prdosfs.c index cd4ffc9d5..56b3aeb40 100644 --- a/v7/src/microcode/prdosfs.c +++ b/v7/src/microcode/prdosfs.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: prdosfs.c,v 1.2 1992/09/15 20:35:31 jinx Exp $ +$Id: prdosfs.c,v 1.3 1992/09/17 00:45:29 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -83,16 +83,6 @@ DEFINE_PRIMITIVE ("FILE-MOD-TIME", Prim_file_mod_time, 1, 1, 0) ? (long_to_integer (s . st_mtime)) : SHARP_F); } - -DEFINE_PRIMITIVE ("FILE-MOD-TIME-INDIRECT", Prim_file_mod_time_indirect, 1, 1, 0) -{ - struct stat s; - PRIMITIVE_HEADER (1); - PRIMITIVE_RETURN - ((DOS_read_file_status ((STRING_ARG (1)), (&s))) - ? (long_to_integer (s . st_mtime)) - : SHARP_F); -} /* Returns a vector of 10 items: @@ -128,10 +118,6 @@ is a vector of 10 items (see the reference manual for details). Otherwise\n\ the result is #F.") FILE_ATTRIBUTES_PRIMITIVE (DOS_read_file_status) -DEFINE_PRIMITIVE ("FILE-ATTRIBUTES-INDIRECT", Prim_file_attributes_indirect, 1, 1, - "Like FILE-ATTRIBUTES but indirect through symbolic links.") - FILE_ATTRIBUTES_PRIMITIVE (DOS_read_file_status) - static SCHEME_OBJECT DEFUN (file_attributes_internal, (s), struct stat * s) { -- 2.25.1