emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-24 r117567: * doc/lispref/control.texi: Avoid overfu


From: Glenn Morris
Subject: [Emacs-diffs] emacs-24 r117567: * doc/lispref/control.texi: Avoid overfull hbox.
Date: Thu, 09 Oct 2014 17:36:07 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 117567
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Thu 2014-10-09 13:36:02 -0400
message:
  * doc/lispref/control.texi: Avoid overfull hbox.
modified:
  doc/lispref/control.texi       
control.texi-20091113204419-o5vbwnq5f7feedwu-6169
=== modified file 'doc/lispref/control.texi'
--- a/doc/lispref/control.texi  2014-01-24 04:11:48 +0000
+++ b/doc/lispref/control.texi  2014-10-09 17:36:02 +0000
@@ -328,13 +328,13 @@
 @example
 (defun evaluate (exp env)
   (pcase exp
-    (`(add ,x ,y)         (+ (evaluate x env) (evaluate y env)))
-    (`(call ,fun ,arg)    (funcall (evaluate fun env) (evaluate arg env)))
-    (`(fn ,arg ,body)     (lambda (val)
-                            (evaluate body (cons (cons arg val) env))))
-    ((pred numberp)       exp)
-    ((pred symbolp)       (cdr (assq exp env)))
-    (_                    (error "Unknown expression %S" exp))))
+    (`(add ,x ,y)       (+ (evaluate x env) (evaluate y env)))
+    (`(call ,fun ,arg)  (funcall (evaluate fun env) (evaluate arg env)))
+    (`(fn ,arg ,body)   (lambda (val)
+                          (evaluate body (cons (cons arg val) env))))
+    ((pred numberp)     exp)
+    ((pred symbolp)     (cdr (assq exp env)))
+    (_                  (error "Unknown expression %S" exp))))
 @end example
 
 Where @code{`(add ,x ,y)} is a pattern that checks that @code{exp} is a three


reply via email to

[Prev in Thread] Current Thread [Next in Thread]