diff options
| author | Juanma Barranquero | 2003-02-10 09:55:17 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-02-10 09:55:17 +0000 |
| commit | 18ac078250f9450f8970f48efcdb72cf0e506414 (patch) | |
| tree | f937781d3ac05e9fce932129970a838ec9a5317c | |
| parent | ce4254bd12176593c718298c36bedbc816d57109 (diff) | |
| download | emacs-18ac078250f9450f8970f48efcdb72cf0e506414.tar.gz emacs-18ac078250f9450f8970f48efcdb72cf0e506414.zip | |
(ebnf-optimize, ebnf-optimize1): Fix typo.
| -rw-r--r-- | lisp/progmodes/ebnf-otz.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el index 4a6f24101d5..73f1ce9238c 100644 --- a/lisp/progmodes/ebnf-otz.el +++ b/lisp/progmodes/ebnf-otz.el | |||
| @@ -1,11 +1,11 @@ | |||
| 1 | ;;; ebnf-otz.el --- syntatic chart OpTimiZer | 1 | ;;; ebnf-otz.el --- syntactic chart OpTimiZer |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 5 | ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
| 6 | ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 6 | ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
| 7 | ;; Keywords: wp, ebnf, PostScript | 7 | ;; Keywords: wp, ebnf, PostScript |
| 8 | ;; Time-stamp: <2001/08/15 17:13:25 vinicius> | 8 | ;; Time-stamp: <2003-02-10 10:46:51 jbarranquero> |
| 9 | ;; Version: 1.0 | 9 | ;; Version: 1.0 |
| 10 | 10 | ||
| 11 | ;; This file is part of GNU Emacs. | 11 | ;; This file is part of GNU Emacs. |
| @@ -196,7 +196,7 @@ | |||
| 196 | ;; A = B | C A D. ==> A = B | C A D. | 196 | ;; A = B | C A D. ==> A = B | C A D. |
| 197 | 197 | ||
| 198 | (defun ebnf-optimize (syntax-list) | 198 | (defun ebnf-optimize (syntax-list) |
| 199 | "Syntatic chart optimizer." | 199 | "Syntactic chart optimizer." |
| 200 | (if (not ebnf-optimize) | 200 | (if (not ebnf-optimize) |
| 201 | syntax-list | 201 | syntax-list |
| 202 | (let ((ebnf-total (length syntax-list)) | 202 | (let ((ebnf-total (length syntax-list)) |
| @@ -225,7 +225,7 @@ | |||
| 225 | ;; 10. A = B C E | B D E. ==> A = B (C | D) E. | 225 | ;; 10. A = B C E | B D E. ==> A = B (C | D) E. |
| 226 | 226 | ||
| 227 | (defun ebnf-optimize1 (prod) | 227 | (defun ebnf-optimize1 (prod) |
| 228 | (ebnf-message-info "Optimizing syntatic chart") | 228 | (ebnf-message-info "Optimizing syntactic chart") |
| 229 | (let ((production (ebnf-node-production prod))) | 229 | (let ((production (ebnf-node-production prod))) |
| 230 | (and (eq (ebnf-node-kind production) 'ebnf-generate-alternative) | 230 | (and (eq (ebnf-node-kind production) 'ebnf-generate-alternative) |
| 231 | (let* ((hlist (ebnf-split-header-prefix | 231 | (let* ((hlist (ebnf-split-header-prefix |