From daaa9c74fb0a9cbf12035bbecde66bcaf2e72790 Mon Sep 17 00:00:00 2001
From: olin-shivers <olin-shivers>
Date: Wed, 7 Mar 2001 16:43:41 +0000
Subject: [PATCH] What was this doing in CVS? It's derived by cig from
 flock.scm.     -Olin

---
 scsh/flock.c | 52 ----------------------------------------------------
 1 file changed, 52 deletions(-)
 delete mode 100644 scsh/flock.c

diff --git a/scsh/flock.c b/scsh/flock.c
deleted file mode 100644
index 6dd9d64..0000000
--- a/scsh/flock.c
+++ /dev/null
@@ -1,52 +0,0 @@
-/* This is an Scheme48/C interface file, 
-** automatically generated by cig.
-*/
-
-#include <stdio.h>
-#include <stdlib.h> /* For malloc. */
-#include "libcig.h"
-
-#include <sys/types.h>
-#include <unistd.h>
-#include <errno.h>
-#include <fcntl.h>
-
-/* Make sure foreign-function stubs interface to the C funs correctly: */
-#include "flock1.h"
-
-#define errno_or_false(x) (((x) == -1) ? ENTER_FIXNUM(errno) : SCHFALSE)
-
-scheme_value df_set_lock(long nargs, scheme_value *args)
-{
-    extern int set_lock(int , int , int , int , int , int );
-    scheme_value ret1;
-    int r1;
-
-    cig_check_nargs(6, nargs, "set_lock");
-    r1 = set_lock(EXTRACT_FIXNUM(args[5]), EXTRACT_FIXNUM(args[4]), EXTRACT_FIXNUM(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
-    ret1 = errno_or_false(r1);
-    return ret1;
-    }
-
-scheme_value df_get_lock(long nargs, scheme_value *args)
-{
-    extern int get_lock(int , int , int , int , int , int , int *, int *, int *, int *, int *);
-    scheme_value ret1;
-    int r1;
-    int r2;
-    int r3;
-    int r4;
-    int r5;
-    int r6;
-
-    cig_check_nargs(7, nargs, "get_lock");
-    r1 = get_lock(EXTRACT_FIXNUM(args[6]), EXTRACT_FIXNUM(args[5]), EXTRACT_FIXNUM(args[4]), EXTRACT_FIXNUM(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), &r2, &r3, &r4, &r5, &r6);
-    ret1 = errno_or_false(r1);
-    VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
-    VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
-    VECTOR_REF(*args,2) = ENTER_FIXNUM(r4);
-    VECTOR_REF(*args,3) = ENTER_FIXNUM(r5);
-    VECTOR_REF(*args,4) = ENTER_FIXNUM(r6);
-    return ret1;
-    }
-