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) 

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the procedure that returns the car of a car?
Visually impaired? Let me spell it for you (wav file) download WAV