projects / mit-scheme.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4c71866)
Fixed typos in comment.
authorArthur A. Gleckler <gnu@speechcode.com>
Wed, 6 Jul 2011 02:30:15 +0000 (19:30 -0700)
committerArthur A. Gleckler <gnu@speechcode.com>
Wed, 6 Jul 2011 02:30:15 +0000 (19:30 -0700)
src/compiler/base/pmlook.scm patch | blob | history

diff --git a/src/compiler/base/pmlook.scm b/src/compiler/base/pmlook.scm
index 020a6c8c36441015d8f6c0f645f2ee16038024be..15bd2f90dd3d6a834fa017fe6bb2acc2523a4455 100644 (file)
--- a/src/compiler/base/pmlook.scm
+++ b/src/compiler/base/pmlook.scm
@@ -40,9 +40,9 @@ USA.
 
 ;;; PATTERN-LOOKUP-1 returns either #f or the result of applying
 ;;; <body> to the values matched by the pattern.  The values
-;;; are in reverse order of variable occurrance in the pattern,
-;;; repeated occurrances of a pattern variable must be eqv?,
-;;; and only the first occurrance is used.
+;;; are in reverse order of variable occurrence in the pattern,
+;;; repeated occurrences of a pattern variable must be eqv?,
+;;; and only the first occurrence is used.
 
 (define (pattern-lookup-1 pattern body instance)
   (let ((binding-alist
MIT/GNU Scheme, Pucked