From 828621ece2df2120b5aa103f20ccc160f35741ac Mon Sep 17 00:00:00 2001 From: "Arthur A. Gleckler" Date: Wed, 1 Sep 2010 22:57:36 -0700 Subject: [PATCH] Fixed typo in comments. --- tests/microcode/test-flonum-casts.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/microcode/test-flonum-casts.scm b/tests/microcode/test-flonum-casts.scm index 864522c36..26ea17887 100644 --- a/tests/microcode/test-flonum-casts.scm +++ b/tests/microcode/test-flonum-casts.scm @@ -84,8 +84,8 @@ USA. -1.0 #*1011111111110000000000000000000000000000000000000000000000000000) - ;; We should a procedure that tests for floating-point infinity - ;; and use it here. + ;; We should add a procedure that tests for floating-point + ;; infinity and use it here. (let ((positive-infinity (integer-to-double #*0111111111110000000000000000000000000000000000000000000000000000))) @@ -138,8 +138,8 @@ USA. (test-single -1.0 #*10111111100000000000000000000000) - ;; We should a procedure that tests for floating-point infinity - ;; and use it here. + ;; We should add a procedure that tests for floating-point + ;; infinity and use it here. (let ((positive-infinity (integer-to-single #*01111111100000000000000000000000))) (assert-true (flo:positive? positive-infinity))) -- 2.25.1