Yes, that's a bug in ->i. Working on it. Sorry, Robby
On Thu, Sep 9, 2010 at 8:08 PM, Matthias Felleisen <matth...@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 > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev