Hi Andy, Andy Wingo <wi...@pobox.com> writes:
> Hi, > > On Thu 05 May 2011 22:21, l...@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’.
