From db5927abf7747f15dee174c24b9b727aa0f4c6c0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 31 Jul 2010 22:11:28 +0900
Subject: [PATCH] fixing type id extraction

---
 tools/genstubs.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/genstubs.scm b/tools/genstubs.scm
index ed187884..89900c0d 100755
--- a/tools/genstubs.scm
+++ b/tools/genstubs.scm
@@ -1040,11 +1040,11 @@
         (type (cdr type)))
     (cat "  name = sexp_c_string(ctx, \"" (type-name name) "\", -1);\n"
          "  " (type-id-name name)
-         " = sexp_unbox_fixnum(sexp_register_c_type(ctx, name, "
+         " = sexp_unbox_fixnum(sexp_type_tag(sexp_register_c_type(ctx, name, "
          (cond ((memq 'finalizer: type)
                 => (lambda (x) (generate-stub-name (cadr x))))
                (else "sexp_finalize_c_type"))
-         "));\n")
+         ")));\n")
     (cond
      ((memq 'predicate: type)
       => (lambda (x)