From ea09b251f8d79a39fecc991c96420df1c59576ed Mon Sep 17 00:00:00 2001 From: Darcy Shen Date: Sun, 10 Aug 2025 23:56:04 +0800 Subject: [PATCH 1/2] wip --- tests/resources/200_14_lint_bad.scm | 1 + 1 file changed, 1 insertion(+) create mode 100644 tests/resources/200_14_lint_bad.scm diff --git a/tests/resources/200_14_lint_bad.scm b/tests/resources/200_14_lint_bad.scm new file mode 100644 index 00000000..691002e1 --- /dev/null +++ b/tests/resources/200_14_lint_bad.scm @@ -0,0 +1 @@ +(check ($ '(((a)) ((b))) :collect) => '(((a)) ((b))))) \ No newline at end of file -- Gitee From 2ff67b65a829a97f495b3a1e563c478f7f93122d Mon Sep 17 00:00:00 2001 From: Darcy Shen Date: Sun, 10 Aug 2025 23:59:30 +0800 Subject: [PATCH 2/2] wip --- devel/200_14.md | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/devel/200_14.md b/devel/200_14.md index 164759e8..2b239c6d 100644 --- a/devel/200_14.md +++ b/devel/200_14.md @@ -94,3 +94,15 @@ xmake b goldfish bin/goldfish tools/lint.scm tests/goldfish/liii/lint2-test.scm bin/goldfish tests/goldfish/liii/lint2-test.scm ``` + +## 2025/08/10 改进 `((())) +### What + +``` +> cat tests/resources/200_14_lint_bad.scm +(check ($ '(((a)) ((b))) :collect) => '(((a)) ((b))))) +> bin/goldfish tools/lint.scm tests/resources/200_14_lint_bad.scm +tests/resources/200_14_lint_bad.scm: + ERROR: unmatched parenthesis for 'b' structure at line 1, column 54 + FIX: remove extraneous closing parenthesis ')' or check corresponding 'b' block starting at line 1, column 48 +``` \ No newline at end of file -- Gitee