From a8d5c4997fe1c4891b32b9842c2b92931bfb3391 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 1 Nov 2003 14:32:52 +0000 Subject: [PATCH] temporary hack to eliminate bad contract original commit: 749012a738181ef7170007c4ee1a81db5807d42c --- collects/mrlib/private/aligned-pasteboard/snip-lib.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mrlib/private/aligned-pasteboard/snip-lib.ss b/collects/mrlib/private/aligned-pasteboard/snip-lib.ss index 34871fbd..47c404df 100644 --- a/collects/mrlib/private/aligned-pasteboard/snip-lib.ss +++ b/collects/mrlib/private/aligned-pasteboard/snip-lib.ss @@ -13,7 +13,7 @@ ;; a snip to act as the varying argument to a recursive functions (define linked-snip? (union snip? false?)) ;; a function to act on snips being mapped - (define snip-visitor? ((snip?) (listof any?) . ->* . (void))) + (define snip-visitor? any? #;((snip?) (listof any?) . ->* . (void))) ;; the rest of the lists passed to a snip mapping function (define rest-lists? (listof (listof any?))) ;; a class that contains a snip