From c234c67e588ea7cab15dfe314b627e45fc149730 Mon Sep 17 00:00:00 2001
From: huangz1990 <huangz1990@gmail.com>
Date: Tue, 16 Oct 2012 17:21:58 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=AD=A3=E7=BB=83=E4=B9=A0=202.56=20?=
 =?UTF-8?q?=E7=AD=94=E6=A1=88=E4=B8=AD=E7=9A=84=20bug=20=EF=BC=8C=E6=84=9F?=
 =?UTF-8?q?=E8=B0=A2=20James=20Liang=20=E7=9A=84=E6=8F=90=E9=86=92?=
 =?UTF-8?q?=EF=BC=9A=20http://sicp.readthedocs.org/en/latest/chp2/56.html#?=
 =?UTF-8?q?comment-683927422?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 chp2/code/56-deriv.scm      | 2 +-
 chp2/code/test-56-deriv.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/chp2/code/56-deriv.scm b/chp2/code/56-deriv.scm
index 9a64a16..22f4c3a 100644
--- a/chp2/code/56-deriv.scm
+++ b/chp2/code/56-deriv.scm
@@ -33,7 +33,7 @@
 
 (define (make-exponentiation base exponent)                         ; 新增
     (cond ((= exponent 0)                                           ;
-            0)                                                      ;
+            1)                                                      ;
           ((= exponent 1)                                           ;
             base)                                                   ;
           (else                                                     ;
diff --git a/chp2/code/test-56-deriv.scm b/chp2/code/test-56-deriv.scm
index 52eb022..9427f37 100644
--- a/chp2/code/test-56-deriv.scm
+++ b/chp2/code/test-56-deriv.scm
@@ -7,7 +7,7 @@
             0)
 
     (equal? (deriv '(** x 1) 'x)
-            0)
+            1)
 
     (equal? (deriv '(** x 2) 'x)
             '(* 2 x))