From 1cbd75436b3a10090e7ff9094e64caef4876305f Mon Sep 17 00:00:00 2001
From: Leif Andersen <leif@leifandersen.net>
Date: Fri, 3 Mar 2017 09:58:19 -0500
Subject: [PATCH] Eta expand natural?

Doing this eta expansion has the advantage that error messages
will point to `natural?` rather than `exact-nonnegative-integer?`
---
 racket/collects/racket/math.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/collects/racket/math.rkt b/racket/collects/racket/math.rkt
index f22a9b8ba1..df28590218 100644
--- a/racket/collects/racket/math.rkt
+++ b/racket/collects/racket/math.rkt
@@ -47,7 +47,8 @@
   (define (nonnegative-integer? x)
     (and (integer? x) (not (negative? x))))
 
-  (define natural? exact-nonnegative-integer?)
+  (define (natural? x)
+    (exact-nonnegative-integer? x))
 
   ;; z^2
   (define (sqr z)