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

From: Matthias Felleisen (matthias at ccs.neu.edu)
Date: Thu Sep 9 21:08:42 EDT 2010

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]





Posted on the dev mailing list.