[Guile-commits] 02/02: Fix error when boot-9.go after "skip invalid .go files" commit

[Andy Wingo]

wingo pushed a commit to branch stable-2.0
in repository guile.

commit 4e02ce55a6b002c2be389952e9ab95a5a89a6dbb
Author: Andy Wingo <address@hidden>
Date:   Thu Jul 14 16:20:59 2016 +0200

    Fix error when boot-9.go after "skip invalid .go files" commit
    
    * module/ice-9/boot-9.scm (map, for-each): Move definition up before
      loading r4rs.go.  Before, when r4rs.go was being loaded, there was a
      window in which "catch" defined in Scheme used with-fluids before
      "map" was defined, but if "with-fluids" in eval.scm uses "map".  That
      would lead to the inability to catch errors (stack overflow) if
      `catch' was used in that window -- which it now is, due to the "skip
      invalid .go files" patch.
---
 module/ice-9/boot-9.scm |   89 ++++++++++++++++++++++++-----------------------
 1 file changed, 45 insertions(+), 44 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 0d5a005..426d831 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -186,6 +186,51 @@ If there is no handler at all, Guile prints an error and 
then exits."
                "Wrong type argument in position ~a: ~a" (list 1 key) (list 
key))
               (apply (fluid-ref %exception-handler) key args)))))
 
+
+
+;;; Boot versions of `map' and `for-each', enough to get the expander
+;;; running, and get the "map" used in eval.scm for with-fluids to work.
+;;;
+(define map
+  (case-lambda
+    ((f l)
+     (let map1 ((l l))
+       (if (null? l)
+           '()
+           (cons (f (car l)) (map1 (cdr l))))))
+    ((f l1 l2)
+     (let map2 ((l1 l1) (l2 l2))
+       (if (null? l1)
+           '()
+           (cons (f (car l1) (car l2))
+                 (map2 (cdr l1) (cdr l2))))))
+    ((f l1 . rest)
+     (let lp ((l1 l1) (rest rest))
+       (if (null? l1)
+           '()
+           (cons (apply f (car l1) (map car rest))
+                 (lp (cdr l1) (map cdr rest))))))))
+
+(define for-each
+  (case-lambda
+    ((f l)
+     (let for-each1 ((l l))
+       (if (pair? l)
+           (begin
+             (f (car l))
+             (for-each1 (cdr l))))))
+    ((f l1 l2)
+     (let for-each2 ((l1 l1) (l2 l2))
+       (if (pair? l1)
+           (begin
+             (f (car l1) (car l2))
+             (for-each2 (cdr l1) (cdr l2))))))
+    ((f l1 . rest)
+     (let lp ((l1 l1) (rest rest))
+       (if (pair? l1)
+           (begin
+             (apply f (car l1) (map car rest))
+             (lp (cdr l1) (map cdr rest))))))))
 
 
 
@@ -252,50 +297,6 @@ If there is no handler at all, Guile prints an error and 
then exits."
 
 
 
-;;; Boot versions of `map' and `for-each', enough to get the expander
-;;; running.
-;;;
-(define map
-  (case-lambda
-    ((f l)
-     (let map1 ((l l))
-       (if (null? l)
-           '()
-           (cons (f (car l)) (map1 (cdr l))))))
-    ((f l1 l2)
-     (let map2 ((l1 l1) (l2 l2))
-       (if (null? l1)
-           '()
-           (cons (f (car l1) (car l2))
-                 (map2 (cdr l1) (cdr l2))))))
-    ((f l1 . rest)
-     (let lp ((l1 l1) (rest rest))
-       (if (null? l1)
-           '()
-           (cons (apply f (car l1) (map car rest))
-                 (lp (cdr l1) (map cdr rest))))))))
-
-(define for-each
-  (case-lambda
-    ((f l)
-     (let for-each1 ((l l))
-       (if (pair? l)
-           (begin
-             (f (car l))
-             (for-each1 (cdr l))))))
-    ((f l1 l2)
-     (let for-each2 ((l1 l1) (l2 l2))
-       (if (pair? l1)
-           (begin
-             (f (car l1) (car l2))
-             (for-each2 (cdr l1) (cdr l2))))))
-    ((f l1 . rest)
-     (let lp ((l1 l1) (rest rest))
-       (if (pair? l1)
-           (begin
-             (apply f (car l1) (map car rest))
-             (lp (cdr l1) (map cdr rest))))))))
-
 ;; Temporary definition used in the include-from-path expansion;
 ;; replaced later.