a hack around a bug

2010-09-09 16:37:13 -05:00 · 2010-09-09 16:37:13 -05:00 · a693efb677
commit a693efb677
parent dca895c129
1 changed files with 2 additions and 1 deletions
--- a/collects/drracket/private/language-object-contract.rkt
+++ b/collects/drracket/private/language-object-contract.rkt
@ -77,7 +77,8 @@
                 (unmarshall-settings (-> printable/c any))
                 
                 (capability-value 
-                  (->i ([s (and/c symbol? 
+                  (->i ([this any/c]  ;; this is a workaround for a bug in ->i and object-contract's interaction!
+                        [s (and/c symbol? 
                                  drracket:language:capability-registered?)])
                       [res (s) (drracket:language:get-capability-contract s)]))))])
           #`(begin