This should be fixed now. Robby
On Thu, Sep 9, 2010 at 8:15 PM, Robby Findler <[email protected]> wrote: > Yes, that's a bug in ->i. Working on it. > > Sorry, > Robby > > On Thu, Sep 9, 2010 at 8:08 PM, Matthias Felleisen <[email protected]> > 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 >> > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev
