Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 22:29:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing type id extraction

Browse source
This commit is contained in:
Alex Shinn 2010-07-31 22:11:28 +09:00
parent 4a2d9474bc
commit db5927abf7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/genstubs.scm
View file

@ -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)