Fix incorrect arity of DB4:DB-ENV-CREATE.

diff --git a/v7/src/microcode/prdb4.c b/v7/src/microcode/prdb4.c
index 6a0f2a82be2422e6e9c10bd6bdab14dbe0661cd0..5a8ce53849134802845dbdacde5f8142a282cf08 100644 (file)
--- 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)
   }
 }
 \f
-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 7fbb6981dc2d7a41e95957b5f69ba27f3d939c1d..ed390272c32d7cf7dd4955bf3ef030b5b4f82880 100644 (file)
--- 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)