fix typo

svn: r5369
2007-01-17 00:13:11 +00:00 · 2007-01-17 00:13:11 +00:00 · 58e05fbd65
commit 58e05fbd65
parent 56a97e8b36
1 changed files with 1 additions and 1 deletions
--- a/collects/lang/private/teachprims.ss
+++ b/collects/lang/private/teachprims.ss
@ -107,7 +107,7 @@
      (unless (ok2? b)
 	(bad b "second" 2type))
      (unless (ok3? c)
-	(bad c "second" 3type))))
+	(bad c "third" 3type))))

  (define (positive-real? v)
    (and (real? v) (>= v 0)))