diff --git a/GoldfishScheme.tmu b/GoldfishScheme.tmu
index ed7c5b6e8fbaa42f46a6d0cbd13be26c3019d4d2..531825bad4cd84e4f004efbd3db97a5e0bd03485 100644
--- a/GoldfishScheme.tmu
+++ b/GoldfishScheme.tmu
@@ -1,4 +1,4 @@
-<TMU|<tuple|1.0.5|1.2.9.8>>
+<TMU|<tuple|1.0.5|1.2.9.7>>
 
 <style|<tuple|book|chinese|literate|goldfish|reduced-margins|guile|smart-ref|preview-ref|python>>
 
@@ -442,7 +442,7 @@
   <\scm-chunk|tests/goldfish/liii/base-test.scm|true|true>
     (check (if (\<gtr\> 3 2) 3 2) =\<gtr\> 3)
 
-    (check (if (\< 3 2) 3 2) =\> 2)
+    (check (if (\<less\> 3 2) 3 2) =\<gtr\> 2)
 
     \;
   </scm-chunk>
@@ -452,7 +452,7 @@
   测试 if 语句的真、假分支，使用复杂表达式
 
   <\scm-chunk|tests/goldfish/liii/base-test.scm|true|true>
-    (check (if (and (\> 3 1) (\< 3 4)) 'true-branch 'false-branch) =\> 'true-branch)
+    (check (if (and (\<gtr\> 3 1) (\<less\> 3 4)) 'true-branch 'false-branch) =\<gtr\> 'true-branch)
 
     (check (if (or (\<gtr\> 3 4) (\<less\> 3 1)) 'true-branch 'false-branch) =\<gtr\> 'false-branch)
 
@@ -595,9 +595,75 @@
 
   <value|r7rs><paragraph|when><index|when>
 
+  测试 when 中条件为真的情况
+
+  <\goldfish-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    <code|<\code*>
+      \;
+
+      (check (when #t 1) =\<gtr\> 1)
+
+      \;
+    </code*>>
+
+    <code|<\code>
+      \;
+    </code>>
+  </goldfish-chunk>
+
+  测试 when 中条件为假的情况
+
+  <\goldfish-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    <code|<\code*>
+      \;
+
+      (check (when #f 1 ) =\<gtr\> #\<less\>unspecified\<gtr\>)
+
+      \;
+    </code*>>
+
+    <code|<\code>
+      \;
+    </code>>
+  </goldfish-chunk>
+
+  \;
+
+  测试when中添加简单条件为真的情况
+
+  <\goldfish-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    <code|<\code*>
+      \;
+
+      (check (when (\<gtr\> 3 1) 1 ) =\<gtr\> 1)
+
+      \;
+    </code*>>
+
+    <code|<\code>
+      \;
+    </code>>
+  </goldfish-chunk>
+
+  测试when中添加简单条件为假的情况
+
+  <\goldfish-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    <code|<\code*>
+      \;
+
+      (check (when (\<gtr\> 1 3) 1 ) =\<gtr\> #\<less\>unspecified\<gtr\>)
+
+      \;
+    </code*>>
+
+    <code|<\code>
+      \;
+    </code>>
+  </goldfish-chunk>
+
   <value|r7rs><paragraph|unless><index|unless>
 
-  <value|r7rs><paragraph|let><index|let>
+  <value|r7rs><paragraph|let><inactive|<index|let>>
 
   <value|r7rs><paragraph|let*><index|let*>
 
@@ -1695,6 +1761,74 @@
 
   <paragraph|expt>
 
+  <paragraph|max>
+
+  测试 max 函数的基本功能
+
+  <\scm-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    \;
+
+    (check (max 1 2 3) =\<gtr\> 3)
+
+    (check (max 3 2 1) =\<gtr\> 3)
+
+    (check (max -1 -2 -3) =\<gtr\> -1)
+
+    (check (max 0 0 0) =\<gtr\> 0)
+
+    (check (max 1.5 2.5 3.5) =\<gtr\> 3.5)
+
+    (check (max 1/2 3/4 1/4) =\<gtr\> 3/4)
+
+    \;
+  </scm-chunk>
+
+  测试 max 函数在没有参数时的情况
+
+  <\scm-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    (check-catch 'wrong-number-of-args (max))
+
+    \;
+  </scm-chunk>
+
+  测试 max 函数在参数类型不正确时的情况
+
+  <\scm-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    \;
+
+    (check-catch 'wrong-type-arg (max 1 "2" 3))
+
+    (check-catch 'wrong-type-arg (max 1 #\\a 3))
+
+    (check-catch 'wrong-type-arg (max 1 'symbol 3))
+
+    \;
+  </scm-chunk>
+
+  测试 max 函数在参数为布尔值时的情况
+
+  <\scm-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    \;
+
+    (check-catch 'wrong-type-arg (max #t #f))
+
+    (check-catch 'wrong-type-arg (max 1 #t 3))
+
+    \;
+  </scm-chunk>
+
+  测试 max 函数在参数为列表时的情况
+
+  <\scm-chunk|tests/goldfish/liii/base-test.scm|true|true>
+    \;
+
+    (check-catch 'wrong-type-arg (max 1 '(2) 3))
+
+    (check-catch 'wrong-type-arg (max '(1 2 3) '(4 5 6)))
+
+    \;
+  </scm-chunk>
+
   <subsection|数的转换>
 
   <value|r7rs><paragraph|number-\<gtr\>string><index|number-\<gtr\>string><typehint|((z number?) (radix 10)) =\<gtr\> string?>
diff --git a/tests/goldfish/liii/base-test.scm b/tests/goldfish/liii/base-test.scm
index c8a459759393eb55f79fd7b88a92c26730ff01d0..47ec85e340b5e3e80635ac2302c5bed3adc97cbc 100755
--- a/tests/goldfish/liii/base-test.scm
+++ b/tests/goldfish/liii/base-test.scm
@@ -71,6 +71,22 @@
 
 (check (and #t 1) => 1)
 
+
+(check (when #t 1) => 1)
+
+
+
+(check (when #f 1 ) => #<unspecified>)
+
+
+
+(check (when (> 3 1) 1 ) => 1)
+
+
+
+(check (when (> 1 3) 1 ) => #<unspecified>)
+
+
 (define (test-letrec)
   (letrec ((even?
              (lambda (n)
@@ -332,6 +348,29 @@
 
 (check (square 2) => 4)
 
+
+(check (max 1 2 3) => 3)
+(check (max 3 2 1) => 3)
+(check (max -1 -2 -3) => -1)
+(check (max 0 0 0) => 0)
+(check (max 1.5 2.5 3.5) => 3.5)
+(check (max 1/2 3/4 1/4) => 3/4)
+
+(check-catch 'wrong-number-of-args (max))
+
+
+(check-catch 'wrong-type-arg (max 1 "2" 3))
+(check-catch 'wrong-type-arg (max 1 #\a 3))
+(check-catch 'wrong-type-arg (max 1 'symbol 3))
+
+
+(check-catch 'wrong-type-arg (max #t #f))
+(check-catch 'wrong-type-arg (max 1 #t 3))
+
+
+(check-catch 'wrong-type-arg (max 1 '(2) 3))
+(check-catch 'wrong-type-arg (max '(1 2 3) '(4 5 6)))
+
 (check (number->string 123) => "123")
 (check (number->string -456) => "-456")