Typo: (fir l) was probably meant to be (fist l).

2017-06-25 07:18:50 +02:00 · 2017-06-25 07:18:50 +02:00 · 95ddfa4972
commit 95ddfa4972
parent 7a8145875c
1 changed files with 2 additions and 2 deletions
--- 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)