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
