From 30e8c7d03972b180b89a4a8f331a75cfe4b2da63 Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Tue, 16 Feb 2010 07:39:22 +0000 Subject: [PATCH] Zap obsolete comment. svn: r18094 --- collects/deinprogramm/contract/contract.ss | 1 - 1 file changed, 1 deletion(-) diff --git a/collects/deinprogramm/contract/contract.ss b/collects/deinprogramm/contract/contract.ss index 7856d16c2c..8dae672dbb 100644 --- a/collects/deinprogramm/contract/contract.ss +++ b/collects/deinprogramm/contract/contract.ss @@ -268,7 +268,6 @@ (delay (apply lift->arbitrary arbitrary-procedure return-contract arg-contracts))))) -;; Matthew has promised a better way of doing this in the future. (define (attach-name name thing) (if (and (procedure? thing) (symbol? name))