Welcome to the CHICKEN Scheme pasting service
r7rs fixup pasted by sjamaan on Fri Jul 26 20:21:21 2013
Index: r7rs-compile-time.scm =================================================================== --- r7rs-compile-time.scm (revision 29397) +++ r7rs-compile-time.scm (working copy) @@ -128,7 +128,9 @@ ,@(process-include-decls fnames) ,(parseIndex: r7rs-compile-time.scm =================================================================== --- r7rs-compile-time.scm (revision 29397) +++ r7rs-compile-time.scm (working copy) @@ -128,7 +128,9 @@ ,@(process-include-decls fnames) ,(parse-decls more))) ((('cond-expand decls ...) . more) - (parse-decls (process-cond-expand decls))) + `(##core#begin + ,(parse-decls (process-cond-expand decls)) + ,(parse-decls more))) ((('begin code ...) . more) `(##core#begin (##core#begin ,@code) -decls more))) ((('cond-expand decls ...) . more) - (parse-decls (process-cond-expand decls))) + `(##core#begin + ,(parse-decls (process-cond-expand decls)) + ,(parse-decls more))) ((('begin code ...) . more) `(##core#begin (##core#begin ,@code)
Proper paste (hopefully) added by sjamaan on Fri Jul 26 20:24:56 2013
Index: r7rs-compile-time.scm =================================================================== --- r7rs-compile-time.scm (revision 29397) +++ r7rs-compile-time.scm (working copy) @@ -128,7 +128,9 @@ ,@(process-include-decls fnames) ,(parse-decls more))) ((('cond-expand decls ...) . more) - (parse-decls (process-cond-expand decls))) + `(##core#begin + ,(parse-decls (process-cond-expand decls)) + ,(parse-decls more))) ((('begin code ...) . more) `(##core#begin (##core#begin ,@code)