From ded9bbf0b6daf42fd458af6619caa357682c4b6b Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Wed, 24 Mar 2010 20:13:05 +0900
Subject: [PATCH] updating libraries and genstubs to use new primitives API

---
 lib/chibi/ast.c        | 2 +-
 lib/chibi/disasm.c     | 2 +-
 lib/chibi/heap-stats.c | 2 +-
 lib/srfi/27/rand.c     | 2 +-
 lib/srfi/33/bit.c      | 2 +-
 lib/srfi/69/hash.c     | 2 +-
 lib/srfi/95/qsort.c    | 2 +-
 lib/srfi/98/env.c      | 2 +-
 tools/genstubs.scm     | 2 +-
 9 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lib/chibi/ast.c b/lib/chibi/ast.c
index ecb00a86..9171cb02 100644
--- a/lib/chibi/ast.c
+++ b/lib/chibi/ast.c
@@ -46,7 +46,7 @@ static sexp sexp_get_opcode_name (sexp ctx, sexp op) {
     return sexp_intern(ctx, sexp_opcode_name(op), -1);
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
   sexp_define_type_predicate(ctx, env, "syntactic-closure?", SEXP_SYNCLO);
   sexp_define_type_predicate(ctx, env, "lambda?", SEXP_LAMBDA);
   sexp_define_type_predicate(ctx, env, "cnd?", SEXP_CND);
diff --git a/lib/chibi/disasm.c b/lib/chibi/disasm.c
index 96bcfb47..78977222 100644
--- a/lib/chibi/disasm.c
+++ b/lib/chibi/disasm.c
@@ -110,7 +110,7 @@ static sexp sexp_disasm (sexp ctx, sexp bc, sexp out) {
   return disasm(ctx, bc, out, 0);
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
   sexp_define_foreign_param(ctx, env, "disasm", 2, (sexp_proc1)sexp_disasm, "*current-output-port*");
   return SEXP_VOID;
 }
diff --git a/lib/chibi/heap-stats.c b/lib/chibi/heap-stats.c
index 581acfc2..0e455ba9 100644
--- a/lib/chibi/heap-stats.c
+++ b/lib/chibi/heap-stats.c
@@ -121,7 +121,7 @@ static sexp sexp_heap_dump (sexp ctx, sexp depth) {
   return sexp_heap_walk(ctx, sexp_unbox_fixnum(depth), 1);
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
   sexp_define_foreign(ctx, env, "heap-stats", 0, sexp_heap_stats);
   sexp_define_foreign_opt(ctx, env, "heap-dump", 1, sexp_heap_dump, SEXP_ONE);
   return SEXP_VOID;
diff --git a/lib/srfi/27/rand.c b/lib/srfi/27/rand.c
index e56bdbeb..25aff799 100644
--- a/lib/srfi/27/rand.c
+++ b/lib/srfi/27/rand.c
@@ -166,7 +166,7 @@ static sexp sexp_random_source_pseudo_randomize (sexp ctx, sexp rs, sexp seed) {
   return SEXP_VOID;
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
   sexp_gc_var2(name, op);
   sexp_gc_preserve2(ctx, name, op);
 
diff --git a/lib/srfi/33/bit.c b/lib/srfi/33/bit.c
index 38aa4652..4fa7f234 100644
--- a/lib/srfi/33/bit.c
+++ b/lib/srfi/33/bit.c
@@ -290,7 +290,7 @@ static sexp sexp_bit_set_p (sexp ctx, sexp i, sexp x) {
   }
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
   sexp_define_foreign(ctx, env, "bit-and",    2, sexp_bit_and);
   sexp_define_foreign(ctx, env, "bit-ior",    2, sexp_bit_ior);
   sexp_define_foreign(ctx, env, "bit-xor",    2, sexp_bit_xor);
diff --git a/lib/srfi/69/hash.c b/lib/srfi/69/hash.c
index b6918454..da28f079 100644
--- a/lib/srfi/69/hash.c
+++ b/lib/srfi/69/hash.c
@@ -228,7 +228,7 @@ static sexp sexp_hash_table_delete (sexp ctx, sexp ht, sexp obj) {
   return SEXP_VOID;
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
 
   sexp_define_foreign_opt(ctx, env, "string-hash", 2, sexp_string_hash, HASH_BOUND);
   sexp_define_foreign_opt(ctx, env, "string-ci-hash", 2, sexp_string_ci_hash, HASH_BOUND);
diff --git a/lib/srfi/95/qsort.c b/lib/srfi/95/qsort.c
index f9f1bd9e..1cfdbe24 100644
--- a/lib/srfi/95/qsort.c
+++ b/lib/srfi/95/qsort.c
@@ -172,7 +172,7 @@ static sexp sexp_sort_x (sexp ctx, sexp seq, sexp less, sexp key) {
   return res;
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
   sexp_define_foreign_opt(ctx, env, "sort!", 3, sexp_sort_x, SEXP_FALSE);
   return SEXP_VOID;
 }
diff --git a/lib/srfi/98/env.c b/lib/srfi/98/env.c
index 38f8b883..990fec8f 100644
--- a/lib/srfi/98/env.c
+++ b/lib/srfi/98/env.c
@@ -40,7 +40,7 @@ sexp sexp_get_environment_variables (sexp ctx) {
   return res;
 }
 
-sexp sexp_init_library (sexp ctx, sexp env) {
+sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
   sexp_define_foreign(ctx, env, "get-environment-variable", 1, sexp_get_environment_variable);
   sexp_define_foreign(ctx, env, "get-environment-variables", 0, sexp_get_environment_variables);
   return SEXP_VOID;
diff --git a/tools/genstubs.scm b/tools/genstubs.scm
index cdd8d235..b38b1704 100755
--- a/tools/genstubs.scm
+++ b/tools/genstubs.scm
@@ -1212,7 +1212,7 @@
   (write-utilities)
   (for-each write-func *funcs*)
   (for-each write-type-funcs *types*)
-  (cat "sexp sexp_init_library (sexp ctx, sexp env) {\n"
+  (cat "sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {\n"
        "  sexp_gc_var2(name, tmp);\n"
        "  sexp_gc_preserve2(ctx, name, tmp);\n")
   (for-each write-const *consts*)