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

fix off-by-one syntax checking bug in internal-defn splicing 'begin'

Browse Source 
svn: r9314
This commit is contained in:
Matthew Flatt 2008-04-15 12:02:59 +00:00
parent 3ada2cc296
commit a7c9444f72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/syntax.c
View File

@ -4439,7 +4439,7 @@ Scheme_Object *scheme_compile_sequence(Scheme_Object *forms,
if (SAME_OBJ(val, scheme_begin_syntax) && SCHEME_STX_PAIRP(first)) { if (SAME_OBJ(val, scheme_begin_syntax) && SCHEME_STX_PAIRP(first)) {
/* Flatten begin: */ /* Flatten begin: */
if (scheme_stx_proper_list_length(first) > 0) { if (scheme_stx_proper_list_length(first) > 1) {
Scheme_Object *rest; Scheme_Object *rest;
rest = scheme_flatten_begin(first, scheme_null); rest = scheme_flatten_begin(first, scheme_null);
first = scheme_datum_to_syntax(rest, first, first, 0, 2); first = scheme_datum_to_syntax(rest, first, first, 0, 2);