From 59d05bd666475f125f87461df2324449b2f62dd6 Mon Sep 17 00:00:00 2001 From: "Arthur A. Gleckler" Date: Tue, 5 Jul 2011 19:30:15 -0700 Subject: [PATCH] Fixed typos in comment. --- src/compiler/base/pmlook.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/compiler/base/pmlook.scm b/src/compiler/base/pmlook.scm index 020a6c8c3..15bd2f90d 100644 --- 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 ;;; 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 -- 2.25.1