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

This should be fixed now.

Robby

On Thu, Sep 9, 2010 at 8:15 PM, Robby Findler
<robby at eecs.northwestern.edu> wrote:
> 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
>>
>