From 4028752054e343675b9425a373d437499731d5d0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 20 Mar 2005 22:01:58 +0000
Subject: [PATCH] Fix incorrect arity of DB4:DB-ENV-CREATE.

---
 v7/src/microcode/prdb4.c       | 6 +++---
 v7/src/runtime/berkeley-db.scm | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/v7/src/microcode/prdb4.c b/v7/src/microcode/prdb4.c
index 6a0f2a82b..5a8ce5384 100644
--- a/v7/src/microcode/prdb4.c
+++ b/v7/src/microcode/prdb4.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prdb4.c,v 1.1 2005/01/06 19:09:06 cph Exp $
+$Id: prdb4.c,v 1.2 2005/03/20 22:01:45 cph Exp $
 
 Copyright 2004,2005 Massachusetts Institute of Technology
 
@@ -406,9 +406,9 @@ DEFINE_PRIMITIVE ("DB4:DB-DEL", Prim_db4_db_del, 4, 4, 0)
   }
 }
 
-DEFINE_PRIMITIVE ("DB4:DB-ENV-CREATE", Prim_db4_db_env_create, 3, 3, 0)
+DEFINE_PRIMITIVE ("DB4:DB-ENV-CREATE", Prim_db4_db_env_create, 2, 2, 0)
 {
-  PRIMITIVE_HEADER (3);
+  PRIMITIVE_HEADER (2);
   CHECK_ARG (2, WEAK_PAIR_P);
   {
     DB_ENV * db_env;
diff --git a/v7/src/runtime/berkeley-db.scm b/v7/src/runtime/berkeley-db.scm
index 7fbb6981d..ed390272c 100644
--- a/v7/src/runtime/berkeley-db.scm
+++ b/v7/src/runtime/berkeley-db.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: berkeley-db.scm,v 1.2 2005/03/20 16:56:14 cph Exp $
+$Id: berkeley-db.scm,v 1.3 2005/03/20 22:01:58 cph Exp $
 
 Copyright 2004,2005 Massachusetts Institute of Technology
 
@@ -33,7 +33,7 @@ USA.
   (db4:db-create 3)
   (db4:db-del 4)
   (db4:db-env-close 2)
-  (db4:db-env-create 3)
+  (db4:db-env-create 2)
   (db4:db-env-get-home 2)
   (db4:db-env-get-open-flags 2)
   (db4:db-env-lock-get 6)
-- 
2.25.1