From 04064f2e4b238dae04bb75724482d68fc3ddd2cc Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 9 Oct 2014 13:36:02 -0400 Subject: [PATCH] * doc/lispref/control.texi: Avoid overfull hbox. --- doc/lispref/control.texi | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi index edf60dd5cc8..800e174d3fc 100644 --- a/doc/lispref/control.texi +++ b/doc/lispref/control.texi @@ -328,13 +328,13 @@ lexical binding): @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 -- 2.11.4.GIT