From b736027c887d94c6e150f3d405f6aafe296bcc70 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E6=87=92=E6=87=92=E9=B8=A1?=
 <15872183+xxwwzzspace@user.noreply.gitee.com>
Date: Tue, 27 May 2025 10:55:35 +0800
Subject: [PATCH 1/3] =?UTF-8?q?docs:=20=E6=B7=BB=E5=8A=A0=20rich-rational?=
 =?UTF-8?q?=20=E7=B1=BB=E5=9E=8B=E6=96=87=E6=A1=A3=E6=B3=A8=E9=87=8A?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 goldfish/liii/lang.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/goldfish/liii/lang.scm b/goldfish/liii/lang.scm
index e39affba..22a6d702 100644
--- a/goldfish/liii/lang.scm
+++ b/goldfish/liii/lang.scm
@@ -90,9 +90,11 @@
 
 )
 
+;; 自动生成to-string方法，格式为 "(rich-rational<值>)"
 (define-case-class rich-rational ((data rational?))
+  (define (%get) data) ;; 选择器方法
 
-(define (%get) data)
+)
 
 (define (%abs) 
   (if (< data 0)
-- 
Gitee


From 410a6212279123e86c52464120efac766434ac0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E6=87=92=E6=87=92=E9=B8=A1?=
 <15872183+xxwwzzspace@user.noreply.gitee.com>
Date: Tue, 27 May 2025 10:56:27 +0800
Subject: [PATCH 2/3] =?UTF-8?q?test:=20=E6=B7=BB=E5=8A=A0=20rich-rational?=
 =?UTF-8?q?=20=E7=9A=84=20to-string=20=E6=B5=8B=E8=AF=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tests/goldfish/liii/lang-test.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/goldfish/liii/lang-test.scm b/tests/goldfish/liii/lang-test.scm
index 3ccc129c..99ddf168 100644
--- a/tests/goldfish/liii/lang-test.scm
+++ b/tests/goldfish/liii/lang-test.scm
@@ -383,6 +383,10 @@
 (check ($ 0 :get) => 0)
 (check ($ -1/3 :get) => -1/3)
 
+(check ($ 1/3 :to-string) => "(rich-rational 1/3)")
+(check ($ 0 :to-string) => "(rich-rational 0)")
+(check ($ -1/3 :to-string) => "(rich-rational -1/3)")
+
 (check ($ 1/3 :abs) => 1/3)
 (check ($ 0.0 :abs) => 0.0)
 (check ($ -1/3 :abs) => 1/3)
-- 
Gitee


From 1bd4235373d304fa2349e75eac30eca35e5023d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E6=87=92=E6=87=92=E9=B8=A1?=
 <15872183+xxwwzzspace@user.noreply.gitee.com>
Date: Tue, 27 May 2025 11:08:36 +0800
Subject: [PATCH 3/3] =?UTF-8?q?docs:=20=E6=B7=BB=E5=8A=A0=20rich-rational?=
 =?UTF-8?q?=20=E7=B1=BB=E5=9E=8B=E6=B3=A8=E9=87=8A?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 goldfish/liii/lang.scm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/goldfish/liii/lang.scm b/goldfish/liii/lang.scm
index 22a6d702..41ba2638 100644
--- a/goldfish/liii/lang.scm
+++ b/goldfish/liii/lang.scm
@@ -94,7 +94,6 @@
 (define-case-class rich-rational ((data rational?))
   (define (%get) data) ;; 选择器方法
 
-)
 
 (define (%abs) 
   (if (< data 0)
-- 
Gitee