suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Foreign.ssc comment

Browse Source 
svn: r15057
This commit is contained in:
Kevin Tew 2009-06-02 17:43:14 +00:00
parent 03f50e117f
commit 02c658eaba
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/foreign/foreign.c
View File

@ -2689,6 +2689,10 @@ void ctype_printer(Scheme_Object *ctype, int dis, Scheme_Print_Params *pp)
/*****************************************************************************/
/* Initialization */
/* types need to be initialized before places can spawn
* types become entries in the GC mark and fixup tables
* this function should initialize read-only globals that can be
* shared without locking */
void scheme_init_foreign_globals()
{
ffi_lib_tag = scheme_make_type("<ffi-lib>");

4
src/foreign/foreign.ssc
View File

@ -2083,6 +2083,10 @@ void ctype_printer(Scheme_Object *ctype, int dis, Scheme_Print_Params *pp)
/*****************************************************************************/
/* Initialization */
/* types need to be initialized before places can spawn
* types become entries in the GC mark and fixup tables
* this function should initialize read-only globals that can be
* shared without locking */
void scheme_init_foreign_globals()
{
@(maplines (lambda (x)