diff options
| author | Daniel Colascione | 2015-03-03 10:56:24 -0800 |
|---|---|---|
| committer | Daniel Colascione | 2015-03-03 10:56:24 -0800 |
| commit | cecf4afebb394351a78c48d05e81a1e55af6da32 (patch) | |
| tree | 983591013d5ea7c5375546948044b519dff1680d /test/automated | |
| parent | 02eb227e8163c6212e814b5b7e191b4d34306872 (diff) | |
| download | emacs-cecf4afebb394351a78c48d05e81a1e55af6da32.tar.gz emacs-cecf4afebb394351a78c48d05e81a1e55af6da32.zip | |
Address generator feedback
* doc/lispref/control.texi (Generators): Correct missing word. Clarify which
forms are legal in which parts of `unwind-protect'. Fix orphaned
close parenthesis.
* lisp/emacs-lisp/generator.el: Make globals conform to elisp
style throughout. Use more efficient font-lock patterns.
(cps-inhibit-atomic-optimization): Rename from
`cps-disable-atomic-optimization'.
(cps--gensym): New macro; replaces `cl-gensym' throughout.
(cps-generate-evaluator): Move the `iter-yield' local macro
definition here
(iter-defun, iter-lambda): from here.
* test/automated/generator-tests.el (cps-test-iter-close-finalizer):
Rename `gc-precise-p' to `gc-precise'.
* test/automated/generator-tests.el (cps-testcase): Use
`cps-inhibit-atomic-optimization' instead of
`cps-disable-atomic-optimization'.
Diffstat (limited to 'test/automated')
| -rw-r--r-- | test/automated/generator-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el index 893c0d2e724..3ee65105597 100644 --- a/test/automated/generator-tests.el +++ b/test/automated/generator-tests.el | |||
| @@ -54,7 +54,7 @@ identical output. | |||
| 54 | (funcall (lambda () ,@body)) | 54 | (funcall (lambda () ,@body)) |
| 55 | (iter-next | 55 | (iter-next |
| 56 | (funcall | 56 | (funcall |
| 57 | (let ((cps-disable-atomic-optimization t)) | 57 | (let ((cps-inhibit-atomic-optimization t)) |
| 58 | (iter-lambda () (iter-yield (progn ,@body))))))))))) | 58 | (iter-lambda () (iter-yield (progn ,@body))))))))))) |
| 59 | 59 | ||
| 60 | (put 'cps-testcase 'lisp-indent-function 1) | 60 | (put 'cps-testcase 'lisp-indent-function 1) |