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

export scheme_stx_extract_marks() from the C API, for now

Browse Source 
related to PR 11014
This commit is contained in:
Matthew Flatt 2010-07-03 10:05:47 -06:00
parent 809f0a4550
commit 99c5fea2fd
9 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/racket/include/mzwin.def
View File

@ -573,3 +573,4 @@ EXPORTS
scheme_signal_received_at
scheme_get_signal_handle
scheme_char_strlen
scheme_stx_extract_marks

1
src/racket/include/mzwin3m.def
View File

@ -589,3 +589,4 @@ EXPORTS
scheme_signal_received_at
scheme_get_signal_handle
scheme_char_strlen
scheme_stx_extract_marks

1
src/racket/include/racket.exp
View File

@ -590,3 +590,4 @@ scheme_signal_received
scheme_signal_received_at
scheme_get_signal_handle
scheme_char_strlen
scheme_stx_extract_marks

1
src/racket/include/racket3m.exp
View File

@ -597,3 +597,4 @@ scheme_signal_received
scheme_signal_received_at
scheme_get_signal_handle
scheme_char_strlen
scheme_stx_extract_marks

2
src/racket/src/schemef.h
View File

@ -1112,3 +1112,5 @@ MZ_EXTERN void scheme_signal_received_at(void *);
MZ_EXTERN void *scheme_get_signal_handle();
MZ_EXTERN int scheme_char_strlen(const mzchar *s);
MZ_EXTERN Scheme_Object *scheme_stx_extract_marks(Scheme_Object *stx);

1
src/racket/src/schemex.h
View File

@ -919,6 +919,7 @@ void (*scheme_signal_received)(void);
void (*scheme_signal_received_at)(void *);
void *(*scheme_get_signal_handle)();
int (*scheme_char_strlen)(const mzchar *s);
Scheme_Object *(*scheme_stx_extract_marks)(Scheme_Object *stx);
#ifndef SCHEME_EX_INLINE
} Scheme_Extension_Table;
#endif

1
src/racket/src/schemex.inc
View File

@ -645,3 +645,4 @@
scheme_extension_table->scheme_signal_received_at = scheme_signal_received_at;
scheme_extension_table->scheme_get_signal_handle = scheme_get_signal_handle;
scheme_extension_table->scheme_char_strlen = scheme_char_strlen;
scheme_extension_table->scheme_stx_extract_marks = scheme_stx_extract_marks;

1
src/racket/src/schemexm.h
View File

@ -645,6 +645,7 @@
#define scheme_signal_received_at (scheme_extension_table->scheme_signal_received_at)
#define scheme_get_signal_handle (scheme_extension_table->scheme_get_signal_handle)
#define scheme_char_strlen (scheme_extension_table->scheme_char_strlen)
#define scheme_stx_extract_marks (scheme_extension_table->scheme_stx_extract_marks)
#ifdef MZ_PRECISE_GC
#pragma GC_VARIABLE_STACK_THOUGH_TABLE
#endif

2
src/racket/src/schpriv.h
View File

@ -967,8 +967,6 @@ Scheme_Object *scheme_stx_phase_shift_as_rename(long shift,
int scheme_stx_list_length(Scheme_Object *list);
int scheme_stx_proper_list_length(Scheme_Object *list);
Scheme_Object *scheme_stx_extract_marks(Scheme_Object *stx);
Scheme_Object *scheme_resolve_placeholders(Scheme_Object *obj);
Scheme_Object *scheme_stx_strip_module_context(Scheme_Object *stx);