From 95ddfa4972bf64387ad6c7f9ec55679c0b1b3d14 Mon Sep 17 00:00:00 2001
From: catull <catull@users.noreply.github.com>
Date: Sun, 25 Jun 2017 07:18:50 +0200
Subject: [PATCH] Typo: (fir l) was probably meant to be (fist l).

---
 pkgs/racket-doc/scribblings/style/constructs.scrbl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pkgs/racket-doc/scribblings/style/constructs.scrbl b/pkgs/racket-doc/scribblings/style/constructs.scrbl
index 6b5d571d53..d88a1b6b5b 100644
--- a/pkgs/racket-doc/scribblings/style/constructs.scrbl
+++ b/pkgs/racket-doc/scribblings/style/constructs.scrbl
@@ -119,7 +119,7 @@ racket
 (cond
   [(empty? l) #false]
   [else
-   (define f (fir l))
+   (define f (first l))
    (define r (rest l))
    (if (discounted? f)
        (rate f)
@@ -131,7 +131,7 @@ racket
 
 (if (empty? l)
     #false
-    (let ([f (fir l)]
+    (let ([f (first l)]
 	  [r (rest l)])
       (if (discounted? f)
           (rate f)