From 0ff56c73fd7fc199df1b93c457a4b4de109df24e Mon Sep 17 00:00:00 2001
From: Richard Brooksby <rb@ravenbrook.com>
Date: Tue, 19 Feb 2013 16:52:44 +0000
Subject: [PATCH] Fixing typos in comments.

Copied from Perforce
 Change: 180959
 ServerID: perforce.ravenbrook.com
---
 mps/example/scheme/scheme-advanced.c | 2 +-
 mps/example/scheme/scheme-boehm.c    | 2 +-
 mps/example/scheme/scheme-malloc.c   | 2 +-
 mps/example/scheme/scheme.c          | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/mps/example/scheme/scheme-advanced.c b/mps/example/scheme/scheme-advanced.c
index 457a1c4ffe1..1382784b0cd 100644
--- a/mps/example/scheme/scheme-advanced.c
+++ b/mps/example/scheme/scheme-advanced.c
@@ -1514,7 +1514,7 @@ static obj_t load(obj_t env, obj_t op_env, obj_t filename) {
 
 /* eval_list -- evaluate list of expressions giving list of results
  *
- * eval_list evaluates a list of expresions and yields a list of their
+ * eval_list evaluates a list of expressions and yields a list of their
  * results, in order.  If the list is badly formed, an error is thrown
  * using the message given.
  */
diff --git a/mps/example/scheme/scheme-boehm.c b/mps/example/scheme/scheme-boehm.c
index ee6112bb98b..519578ea5a0 100644
--- a/mps/example/scheme/scheme-boehm.c
+++ b/mps/example/scheme/scheme-boehm.c
@@ -1244,7 +1244,7 @@ static obj_t load(obj_t env, obj_t op_env, const char *filename) {
 
 /* eval_list -- evaluate list of expressions giving list of results
  *
- * eval_list evaluates a list of expresions and yields a list of their
+ * eval_list evaluates a list of expressions and yields a list of their
  * results, in order.  If the list is badly formed, an error is thrown
  * using the message given.
  */
diff --git a/mps/example/scheme/scheme-malloc.c b/mps/example/scheme/scheme-malloc.c
index 51569df6d15..e80dc2a89fa 100644
--- a/mps/example/scheme/scheme-malloc.c
+++ b/mps/example/scheme/scheme-malloc.c
@@ -1244,7 +1244,7 @@ static obj_t load(obj_t env, obj_t op_env, const char *filename) {
 
 /* eval_list -- evaluate list of expressions giving list of results
  *
- * eval_list evaluates a list of expresions and yields a list of their
+ * eval_list evaluates a list of expressions and yields a list of their
  * results, in order.  If the list is badly formed, an error is thrown
  * using the message given.
  */
diff --git a/mps/example/scheme/scheme.c b/mps/example/scheme/scheme.c
index ecbd00353e4..c3d282bf897 100644
--- a/mps/example/scheme/scheme.c
+++ b/mps/example/scheme/scheme.c
@@ -1543,7 +1543,7 @@ static obj_t load(obj_t env, obj_t op_env, obj_t filename) {
 
 /* eval_list -- evaluate list of expressions giving list of results
  *
- * eval_list evaluates a list of expresions and yields a list of their
+ * eval_list evaluates a list of expressions and yields a list of their
  * results, in order.  If the list is badly formed, an error is thrown
  * using the message given.
  */