bug#44742: closed (Cuirass crashed when run interactively)

[GNU bug Tracking System]

Your message dated Tue, 08 Dec 2020 12:11:16 +0100
with message-id <87h7owtuwb.fsf@gnu.org>
and subject line Re: bug#44742: Cuirass crashed when run interactively
has caused the debbugs.gnu.org bug report #44742,
regarding Cuirass crashed when run interactively
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs@gnu.org.)


-- 
44742: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=44742
GNU Bug Tracking System
Contact help-debbugs@gnu.org with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> Cuirass crashed when run interactively
>
>
>
>
> Date: 
>
> Thu, 19 Nov 2020 18:49:06 +0100
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux)
>
>
>
>
> Hello,
>
> When running Cuirass (3fd0eb1) directly from a command line, I have
> the following error:
>
> --8<---------------cut here---------------start------------->8---
> 2020-11-19T18:34:29 exception arguments: (#f "Wrong number of arguments to ~A" 
> (#<procedure 7f8f7ffea660 at git/structs.scm:562:22 (ptr _)>) #f)
> In ice-9/boot-9.scm:
>   1731:15 12 (with-exception-handler #<procedure 7f8f7fe26d80 at ic…> …)
>   1736:10 11 (with-exception-handler _ _ #:unwind? _ # _)
>     718:2 10 (call-with-prompt ("break") #<procedure 7f8f82214c80 a…> …)
>     718:2  9 (call-with-prompt ("continue") #<procedure 7f8f8221486…> …)
> In ice-9/eval.scm:
>     619:8  8 (_ #(#(#<directory (guile-user) 7f8f83128f00> #<var…> …)))
> In srfi/srfi-1.scm:
>     634:9  7 (for-each #<procedure 7f8f7ff52180 at cuirass/base.scm…> …)
> In ice-9/boot-9.scm:
>   1731:15  6 (with-exception-handler #<procedure 7f8f7fe26720 at ic…> …)
>   1669:16  5 (raise-exception _ #:continuable? _)
>   1764:13  4 (_ #<&compound-exception components: (#<&assertion-fail…>)
> In cuirass/utils.scm:
>     319:8  3 (_ _ . _)
> In ice-9/boot-9.scm:
>   1731:15  2 (with-exception-handler #<procedure 7f8f7c42d510 at ic…> …)
> In cuirass/utils.scm:
>    320:22  1 (_)
> In unknown file:
>            0 (make-stack #t)
> ERROR: In procedure make-stack:
> Wrong number of arguments to #<procedure 7f8f7ffea660 at git/structs.scm:562:22 
> (ptr _)>
> --8<---------------cut here---------------end--------------->8---
>
> this seems to be cause by the recent addition of a progress bar when
> using Guile-Git.
>
> The following work-around seem to confirm it:
>
> --8<---------------cut here---------------start------------->8---
> -                 (fetch-input store input
> -                              #:writable-copy? (compile? input)))))
> +                 (parameterize ((current-error-port (%make-void-port "rw+")))
> +                   (fetch-input store input
> +                                #:writable-copy? (compile? input))))))
> --8<---------------cut here---------------end--------------->8---
>
> Thanks,
>
> Mathieu
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#44742: Cuirass crashed when run interactively
>
>
>
>
> Date: 
>
> Tue, 08 Dec 2020 12:11:16 +0100
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux)
>
>
>
>
> Hello,
>
> > The following work-around seem to confirm it:
> >
> > -                 (fetch-input store input
> > -                              #:writable-copy? (compile? input)))))
> > +                 (parameterize ((current-error-port (%make-void-port "rw+")))
> > +                   (fetch-input store input
> > +                                #:writable-copy? (compile? input))))))
>
> I've pushed this work-around as
> e0f97e475f6d9d832eb67b3576f2c43a0aff65b4.
>
> Thanks,
>
> Mathieu
>
>
> --- End Message ---