[racket-dev] drracket fails N times during start up

Yes, that's a bug in ->i. Working on it.

Sorry,
Robby

On Thu, Sep 9, 2010 at 8:08 PM, Matthias Felleisen <matthias at ccs.neu.edu> wrote:
>
> I built drrackt from scratch tonight around 7:30. When I started it up, I got the following N error message.
>
>
> Error in phase 2 for tool #<path:/Users/matthias/plt/collects/frtime/tool/frtime-tool.ss>; "FrTime Language"
>
> /Users/matthias/plt/collects/drracket/private/tools-drs.rkt: FrTime Language broke the contract
>  (->
>   (and/c
>    (is-a?/c interface:language<%>)
>    (object-contract
>     (capability-value
>      (->i
>       ((this any/c)
>        (s
>         (and/c
>          symbol?
>          drracket:language:capability-registered?)))
>       (res (s) ...)))
>     (unmarshall-settings (-> printable/c any))
>     (render-value/format
>      (->
>       any/c
>       any/c
>       output-port?
>       (or/c number? (symbols 'infinity))
>       any))
>     (render-value
>      (-> any/c any/c output-port? void?))
>     (on-execute (-> any/c (-> (-> any) any) any))
>     (marshall-settings (-> any/c printable/c))
>     (get-style-delta
>      (->
>       (or/c
>        #f
>        (is-a?/c class:style-delta%)
>        (listof
>         (list/c
>          (is-a?/c class:style-delta%)
>          number?
>          number?)))))
>     (get-comment-character
>      (-> (values string? char?)))
>     (get-one-line-summary (-> string?))
>     (get-language-url (-> (or/c #f string?)))
>     (get-language-position
>      (-> (cons/c string? (listof string?))))
>     (get-language-numbers
>      (-> (cons/c number? (listof number?))))
>     (get-language-name (-> string?))
>     (front-end/interaction
>      (-> input-port? any/c (-> any/c)))
>     (front-end/complete-program
>      (-> input-port? any/c (-> any/c)))
>     (default-settings? (-> any/c boolean?))
>     (default-settings (-> any/c))
>     (create-executable
>      (->
>       any/c
>       (or/c
>        (is-a?/c class:dialog%)
>        (is-a?/c class:frame%))
>       path?
>       void?))
>     (config-panel
>      (->
>       (is-a?/c interface:area-container<%>)
>       (case-> (-> any/c void?) (-> any/c))))))
>   void?)
>  on
>  drscheme:language-configuration:add-language
>  given to (unit tools-drs@); expected a method that accepts 2 mandatory arguments without any keywords, given: #<procedure:capability-value method in ...private/language.rkt:552:4>
>
>  === context ===
> /Users/matthias/plt/collects/racket/contract/private/blame.rkt:58:0: raise-blame-error
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4488:6: for-loop
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4395:0: make-wrapper-class
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4529:0: make-wrapper-object
> /Users/matthias/plt/collects/racket/contract/private/arrow.rkt:1479:3
> /Users/matthias/plt/collects/drracket/private/tools.rkt:453:0: run-phases
> /Users/matthias/plt/collects/drracket/tool-lib.rkt: [running body]
> /Users/matthias/plt/collects/drracket/private/drracket-normal.rkt: [running body]
> /Users/matthias/plt/collects/drracket/drracket.rkt: [running body]
>
> Error in phase 2 for tool #<path:/Users/matthias/plt/collects/swindle/tool.rkt>; "Swindle"
>
> /Users/matthias/plt/collects/drracket/private/tools-drs.rkt: Swindle broke the contract
>  (->
>   (and/c
>    (is-a?/c interface:language<%>)
>    (object-contract
>     (capability-value
>      (->i
>       ((this any/c)
>        (s
>         (and/c
>          symbol?
>          drracket:language:capability-registered?)))
>       (res (s) ...)))
>     (unmarshall-settings (-> printable/c any))
>     (render-value/format
>      (->
>       any/c
>       any/c
>       output-port?
>       (or/c number? (symbols 'infinity))
>       any))
>     (render-value
>      (-> any/c any/c output-port? void?))
>     (on-execute (-> any/c (-> (-> any) any) any))
>     (marshall-settings (-> any/c printable/c))
>     (get-style-delta
>      (->
>       (or/c
>        #f
>        (is-a?/c class:style-delta%)
>        (listof
>         (list/c
>          (is-a?/c class:style-delta%)
>          number?
>          number?)))))
>     (get-comment-character
>      (-> (values string? char?)))
>     (get-one-line-summary (-> string?))
>     (get-language-url (-> (or/c #f string?)))
>     (get-language-position
>      (-> (cons/c string? (listof string?))))
>     (get-language-numbers
>      (-> (cons/c number? (listof number?))))
>     (get-language-name (-> string?))
>     (front-end/interaction
>      (-> input-port? any/c (-> any/c)))
>     (front-end/complete-program
>      (-> input-port? any/c (-> any/c)))
>     (default-settings? (-> any/c boolean?))
>     (default-settings (-> any/c))
>     (create-executable
>      (->
>       any/c
>       (or/c
>        (is-a?/c class:dialog%)
>        (is-a?/c class:frame%))
>       path?
>       void?))
>     (config-panel
>      (->
>       (is-a?/c interface:area-container<%>)
>       (case-> (-> any/c void?) (-> any/c))))))
>   void?)
>  on
>  drscheme:language-configuration:add-language
>  given to (unit tools-drs@); expected a method that accepts 2 mandatory arguments without any keywords, given: #<procedure:capability-value method in ...private/language.rkt:552:4>
>
>  === context ===
> /Users/matthias/plt/collects/racket/contract/private/blame.rkt:58:0: raise-blame-error
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4488:6: for-loop
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4395:0: make-wrapper-class
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4529:0: make-wrapper-object
> /Users/matthias/plt/collects/racket/contract/private/arrow.rkt:1479:3
> /Users/matthias/plt/collects/racket/private/map.rkt:45:11: for-each
> /Users/matthias/plt/collects/swindle/tool.rkt:132:4: phase2
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/drracket/private/tools.rkt:453:0: run-phases
> /Users/matthias/plt/collects/drracket/tool-lib.rkt: [running body]
> /Users/matthias/plt/collects/drracket/private/drracket-normal.rkt: [running body]
> /Users/matthias/plt/collects/drracket/drracket.rkt: [running body]
>
> Error in phase 2 for tool #<path:/Users/matthias/plt/collects/lang/htdp-langs.ss>; "How to Design Programs"
>
> /Users/matthias/plt/collects/drracket/private/tools-drs.rkt: How to Design Programs broke the contract
>  (->
>   (and/c
>    (is-a?/c interface:language<%>)
>    (object-contract
>     (capability-value
>      (->i
>       ((this any/c)
>        (s
>         (and/c
>          symbol?
>          drracket:language:capability-registered?)))
>       (res (s) ...)))
>     (unmarshall-settings (-> printable/c any))
>     (render-value/format
>      (->
>       any/c
>       any/c
>       output-port?
>       (or/c number? (symbols 'infinity))
>       any))
>     (render-value
>      (-> any/c any/c output-port? void?))
>     (on-execute (-> any/c (-> (-> any) any) any))
>     (marshall-settings (-> any/c printable/c))
>     (get-style-delta
>      (->
>       (or/c
>        #f
>        (is-a?/c class:style-delta%)
>        (listof
>         (list/c
>          (is-a?/c class:style-delta%)
>          number?
>          number?)))))
>     (get-comment-character
>      (-> (values string? char?)))
>     (get-one-line-summary (-> string?))
>     (get-language-url (-> (or/c #f string?)))
>     (get-language-position
>      (-> (cons/c string? (listof string?))))
>     (get-language-numbers
>      (-> (cons/c number? (listof number?))))
>     (get-language-name (-> string?))
>     (front-end/interaction
>      (-> input-port? any/c (-> any/c)))
>     (front-end/complete-program
>      (-> input-port? any/c (-> any/c)))
>     (default-settings? (-> any/c boolean?))
>     (default-settings (-> any/c))
>     (create-executable
>      (->
>       any/c
>       (or/c
>        (is-a?/c class:dialog%)
>        (is-a?/c class:frame%))
>       path?
>       void?))
>     (config-panel
>      (->
>       (is-a?/c interface:area-container<%>)
>       (case-> (-> any/c void?) (-> any/c))))))
>   void?)
>  on
>  drscheme:language-configuration:add-language
>  given to (unit tools-drs@); expected a method that accepts 2 mandatory arguments without any keywords, given: #<procedure:capability-value method in ...private/language.rkt:552:4>
>
>  === context ===
> /Users/matthias/plt/collects/racket/contract/private/blame.rkt:58:0: raise-blame-error
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4488:6: for-loop
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4395:0: make-wrapper-class
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4529:0: make-wrapper-object
> /Users/matthias/plt/collects/racket/contract/private/arrow.rkt:1479:3
> /Users/matthias/plt/collects/lang/htdp-langs.rkt:1205:6: phase2
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/drracket/private/tools.rkt:453:0: run-phases
> /Users/matthias/plt/collects/drracket/tool-lib.rkt: [running body]
> /Users/matthias/plt/collects/drracket/private/drracket-normal.rkt: [running body]
> /Users/matthias/plt/collects/drracket/drracket.rkt: [running body]
>
> Error in phase 2 for tool #<path:/Users/matthias/plt/collects/eopl/eopl-tool.ss>; "Essentials of Programming Languages"
>
> /Users/matthias/plt/collects/drracket/private/tools-drs.rkt:
>  Essentials of Programming Languages
>  broke the contract
>  (->
>   (and/c
>    (is-a?/c interface:language<%>)
>    (object-contract
>     (capability-value
>      (->i
>       ((this any/c)
>        (s
>         (and/c
>          symbol?
>          drracket:language:capability-registered?)))
>       (res (s) ...)))
>     (unmarshall-settings (-> printable/c any))
>     (render-value/format
>      (->
>       any/c
>       any/c
>       output-port?
>       (or/c number? (symbols 'infinity))
>       any))
>     (render-value
>      (-> any/c any/c output-port? void?))
>     (on-execute (-> any/c (-> (-> any) any) any))
>     (marshall-settings (-> any/c printable/c))
>     (get-style-delta
>      (->
>       (or/c
>        #f
>        (is-a?/c class:style-delta%)
>        (listof
>         (list/c
>          (is-a?/c class:style-delta%)
>          number?
>          number?)))))
>     (get-comment-character
>      (-> (values string? char?)))
>     (get-one-line-summary (-> string?))
>     (get-language-url (-> (or/c #f string?)))
>     (get-language-position
>      (-> (cons/c string? (listof string?))))
>     (get-language-numbers
>      (-> (cons/c number? (listof number?))))
>     (get-language-name (-> string?))
>     (front-end/interaction
>      (-> input-port? any/c (-> any/c)))
>     (front-end/complete-program
>      (-> input-port? any/c (-> any/c)))
>     (default-settings? (-> any/c boolean?))
>     (default-settings (-> any/c))
>     (create-executable
>      (->
>       any/c
>       (or/c
>        (is-a?/c class:dialog%)
>        (is-a?/c class:frame%))
>       path?
>       void?))
>     (config-panel
>      (->
>       (is-a?/c interface:area-container<%>)
>       (case-> (-> any/c void?) (-> any/c))))))
>   void?)
>  on
>  drscheme:language-configuration:add-language
>  given to (unit tools-drs@); expected a method that accepts 2 mandatory arguments without any keywords, given: #<procedure:capability-value method in ...private/language.rkt:552:4>
>
>  === context ===
> /Users/matthias/plt/collects/racket/contract/private/blame.rkt:58:0: raise-blame-error
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4488:6: for-loop
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4395:0: make-wrapper-class
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4529:0: make-wrapper-object
> /Users/matthias/plt/collects/racket/contract/private/arrow.rkt:1479:3
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/drracket/private/tools.rkt:453:0: run-phases
> /Users/matthias/plt/collects/drracket/tool-lib.rkt: [running body]
> /Users/matthias/plt/collects/drracket/private/drracket-normal.rkt: [running body]
> /Users/matthias/plt/collects/drracket/drracket.rkt: [running body]
>
> Error in phase 2 for tool #<path:/Users/matthias/plt/collects/deinprogramm/deinprogramm-langs.ss>; "DeinProgramm"
>
> /Users/matthias/plt/collects/drracket/private/tools-drs.rkt: DeinProgramm broke the contract
>  (->
>   (and/c
>    (is-a?/c interface:language<%>)
>    (object-contract
>     (capability-value
>      (->i
>       ((this any/c)
>        (s
>         (and/c
>          symbol?
>          drracket:language:capability-registered?)))
>       (res (s) ...)))
>     (unmarshall-settings (-> printable/c any))
>     (render-value/format
>      (->
>       any/c
>       any/c
>       output-port?
>       (or/c number? (symbols 'infinity))
>       any))
>     (render-value
>      (-> any/c any/c output-port? void?))
>     (on-execute (-> any/c (-> (-> any) any) any))
>     (marshall-settings (-> any/c printable/c))
>     (get-style-delta
>      (->
>       (or/c
>        #f
>        (is-a?/c class:style-delta%)
>        (listof
>         (list/c
>          (is-a?/c class:style-delta%)
>          number?
>          number?)))))
>     (get-comment-character
>      (-> (values string? char?)))
>     (get-one-line-summary (-> string?))
>     (get-language-url (-> (or/c #f string?)))
>     (get-language-position
>      (-> (cons/c string? (listof string?))))
>     (get-language-numbers
>      (-> (cons/c number? (listof number?))))
>     (get-language-name (-> string?))
>     (front-end/interaction
>      (-> input-port? any/c (-> any/c)))
>     (front-end/complete-program
>      (-> input-port? any/c (-> any/c)))
>     (default-settings? (-> any/c boolean?))
>     (default-settings (-> any/c))
>     (create-executable
>      (->
>       any/c
>       (or/c
>        (is-a?/c class:dialog%)
>        (is-a?/c class:frame%))
>       path?
>       void?))
>     (config-panel
>      (->
>       (is-a?/c interface:area-container<%>)
>       (case-> (-> any/c void?) (-> any/c))))))
>   void?)
>  on
>  drscheme:language-configuration:add-language
>  given to (unit tools-drs@); expected a method that accepts 2 mandatory arguments without any keywords, given: #<procedure:capability-value method in ...private/language.rkt:552:4>
>
>  === context ===
> /Users/matthias/plt/collects/racket/contract/private/blame.rkt:58:0: raise-blame-error
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4488:6: for-loop
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4395:0: make-wrapper-class
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4529:0: make-wrapper-object
> /Users/matthias/plt/collects/racket/contract/private/arrow.rkt:1479:3
> /Users/matthias/plt/collects/deinprogramm/deinprogramm-langs.rkt:1334:6: phase2
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/drracket/private/tools.rkt:453:0: run-phases
> /Users/matthias/plt/collects/drracket/tool-lib.rkt: [running body]
> /Users/matthias/plt/collects/drracket/private/drracket-normal.rkt: [running body]
> /Users/matthias/plt/collects/drracket/drracket.rkt: [running body]
>
> Error in phase 2 for tool #<path:/Users/matthias/plt/collects/algol60/tool.ss>; "Algol 60"
>
> /Users/matthias/plt/collects/drracket/private/tools-drs.rkt: Algol 60 broke the contract
>  (->
>   (and/c
>    (is-a?/c interface:language<%>)
>    (object-contract
>     (capability-value
>      (->i
>       ((this any/c)
>        (s
>         (and/c
>          symbol?
>          drracket:language:capability-registered?)))
>       (res (s) ...)))
>     (unmarshall-settings (-> printable/c any))
>     (render-value/format
>      (->
>       any/c
>       any/c
>       output-port?
>       (or/c number? (symbols 'infinity))
>       any))
>     (render-value
>      (-> any/c any/c output-port? void?))
>     (on-execute (-> any/c (-> (-> any) any) any))
>     (marshall-settings (-> any/c printable/c))
>     (get-style-delta
>      (->
>       (or/c
>        #f
>        (is-a?/c class:style-delta%)
>        (listof
>         (list/c
>          (is-a?/c class:style-delta%)
>          number?
>          number?)))))
>     (get-comment-character
>      (-> (values string? char?)))
>     (get-one-line-summary (-> string?))
>     (get-language-url (-> (or/c #f string?)))
>     (get-language-position
>      (-> (cons/c string? (listof string?))))
>     (get-language-numbers
>      (-> (cons/c number? (listof number?))))
>     (get-language-name (-> string?))
>     (front-end/interaction
>      (-> input-port? any/c (-> any/c)))
>     (front-end/complete-program
>      (-> input-port? any/c (-> any/c)))
>     (default-settings? (-> any/c boolean?))
>     (default-settings (-> any/c))
>     (create-executable
>      (->
>       any/c
>       (or/c
>        (is-a?/c class:dialog%)
>        (is-a?/c class:frame%))
>       path?
>       void?))
>     (config-panel
>      (->
>       (is-a?/c interface:area-container<%>)
>       (case-> (-> any/c void?) (-> any/c))))))
>   void?)
>  on
>  drscheme:language-configuration:add-language
>  given to (unit tools-drs@); expected a method that accepts 2 mandatory arguments without any keywords, given: #<procedure:capability-value method in lang%>
>
>  === context ===
> /Users/matthias/plt/collects/racket/contract/private/blame.rkt:58:0: raise-blame-error
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4488:6: for-loop
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4395:0: make-wrapper-class
> /Users/matthias/plt/collects/racket/private/class-internal.rkt:4529:0: make-wrapper-object
> /Users/matthias/plt/collects/racket/contract/private/arrow.rkt:1479:3
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/racket/private/more-scheme.rkt:173:2: select-handler/no-breaks
> /Users/matthias/plt/collects/drracket/private/tools.rkt:453:0: run-phases
> /Users/matthias/plt/collects/drracket/tool-lib.rkt: [running body]
> /Users/matthias/plt/collects/drracket/private/drracket-normal.rkt: [running body]
> /Users/matthias/plt/collects/drracket/drracket.rkt: [running body]
>
>
>
> _________________________________________________
>  For list-related administrative tasks:
>  http://lists.racket-lang.org/listinfo/dev
>