From 2758133083b10db2b050006801972afd715150f2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 14 Jul 2007 14:14:58 +0000
Subject: [PATCH] plain definitions are better karma

svn: r6914
---
 collects/lazy/force.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/lazy/force.ss b/collects/lazy/force.ss
index c2058da943..50f2c6f398 100644
--- a/collects/lazy/force.ss
+++ b/collects/lazy/force.ss
@@ -2,8 +2,8 @@
   (require "promise.ss")
   (provide (all-defined-except do-!!))
 
-  (define-syntax ! (make-rename-transformer #'force))
   (define-syntax ~ (make-rename-transformer #'lazy))
+  (define ! force)
 
   (define (!! x) (do-!! x #f))
   ;; Similar to the above, but wrap procedure values too