Re: early termination for `map'

[ludo@gnu.org (Ludovic Courtès)]

Hi Andy,

Andy Wingo <wingo@pobox.com> writes:

> Hi,
>
> On Thu 05 May 2011 22:21, ludo@gnu.org (Ludovic Courtès) writes:
>
>> Yes, and I think we can keep rewriting SRFI-1 in Scheme, even in 2.0.
>>
>>> So I implemented map in Scheme
>>
>> Ooh, interesting.  :-)
>
> I pushed to stable-2.0.  Let me know if you want me to back it out.

It seems to break fresh builds (from <http://hydra.nixos.org/build/1077886>):

--8<---------------cut here---------------start------------->8---
  GUILEC texinfo/plain-text.go
Backtrace:
In system/base/compile.scm:
 192: 19 [read-and-compile #<input: texinfo/plain-text.scm 37> #:from ...]
 204: 18 [lp (# # # # ...) #<directory # 1903a20> #<directory # 1903a20>]
 170: 17 [lp (#<procedure compile-tree-il (x e opts)>) (define # #) ...]
In ice-9/boot-9.scm:
2103: 16 [save-module-excursion #<procedure 1bce360 at language/scheme/compile-tree-il.scm:29:3 ()>]
In language/scheme/compile-tree-il.scm:
  31: 15 [#<procedure 1bce360 at language/scheme/compile-tree-il.scm:29:3 ()>]
In ice-9/psyntax.scm:
1034: 14 [chi-top-sequence ((define # #)) () ((top)) ...]
1003: 13 [#<procedure 1bbf780 at ice-9/psyntax.scm:1002:36 ()>]
1530: 12 [chi-simple-lambda (# . #) () (()) ...]
1420: 11 [parse (((# # #) . #(syntax-object # # #))) () () () () () ()]
In ice-9/boot-9.scm:
 541: 10 [map #<procedure 1bce030 at ice-9/psyntax.scm:1420:50 (x)> ((# . #))]
In ice-9/psyntax.scm:
1253: 9 [#<procedure 1bc9910 (e0 e1)> string-concatenate (#)]
In ice-9/boot-9.scm:
 541: 8 [map #<procedure 1bd0280 at ice-9/psyntax.scm:1253:35 (e)> (#)]
In ice-9/psyntax.scm:
1186: 7 [chi (map-in-order stexi->plain-text body) (# # #) (# # #) ...]
1121: 6 [syntax-type (map-in-order stexi->plain-text body) (# # #) (# # #) ...]
1106: 5 [syntax-type map-in-order (# # #) (# # #) ...]
 583: 4 [lookup map-in-order (# # #) (hygiene texinfo plain-text)]
 289: 3 [get-global-definition-hook map-in-order (hygiene texinfo plain-text)]
In unknown file:
   ?: 2 [module-variable #<directory (texinfo plain-text) 1903a20> map-in-order]
In ice-9/boot-9.scm:
3364: 1 [replace #<directory (texinfo plain-text) 1903a20> map-in-order ...]
 119: 0 [#<procedure 15aa8c0 at ice-9/boot-9.scm:110:6 (thrown-k . args)> wrong-number-of-args ...]

ice-9/boot-9.scm:118:20: In procedure #<procedure 15aa8c0 at ice-9/boot-9.scm:110:6 (thrown-k . args)>:
ice-9/boot-9.scm:118:20: Wrong number of arguments to #<procedure replace (module name int1 val1 int2 val2 var val)>
make[2]: *** [texinfo/plain-text.go] Error 1
--8<---------------cut here---------------end--------------->8---

Thanks,
Ludo’.