From: Arthur A. Gleckler Date: Wed, 6 Jul 2011 02:30:15 +0000 (-0700) Subject: Fixed typos in comment. X-Git-Tag: release-9.2.0~352 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=59d05bd666475f125f87461df2324449b2f62dd6;p=mit-scheme.git Fixed typos in comment. --- 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