From fdc1593a27d7649988f8603b898f8b1686a7cb87 Mon Sep 17 00:00:00 2001 From: Steffen Beyer Date: Sat, 4 Apr 2026 11:13:30 +0200 Subject: [PATCH] fix: preserve symbol suffixes in form name extraction --- .pi/extensions/pigibrack/index.ts | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/.pi/extensions/pigibrack/index.ts b/.pi/extensions/pigibrack/index.ts index 4fc9d2c..cf67922 100644 --- a/.pi/extensions/pigibrack/index.ts +++ b/.pi/extensions/pigibrack/index.ts @@ -265,12 +265,12 @@ function extractFormName(formText: string): string | undefined { if (!trimmed.startsWith('(')) return undefined; const patterns = [ - /^\(\s*(?:define|define-public|define\*)\s+\(([\w!$%&*+\-./:<=>?@^~]+(?:[\w!$%&*+\-./:<=>?@^~]|#[^\s()\[\]]*)?)\b/, - /^\(\s*(?:define|define-public|define\*)\s+([^\s()\[\]]+)\b/, - /^\(\s*(?:define-syntax|define-syntax-rule|define-macro)\s+\(([^\s()\[\]]+)\b/, - /^\(\s*(?:define-syntax|define-syntax-rule|define-macro)\s+([^\s()\[\]]+)\b/, - /^\(\s*define-record-type\s+([^\s()\[\]]+)\b/, - /^\(\s*define-class\s+([^\s()\[\]]+)\b/, + /^\(\s*(?:define|define-public|define\*)\s+\(([^\s()\[\]]+)/, + /^\(\s*(?:define|define-public|define\*)\s+([^\s()\[\]]+)/, + /^\(\s*(?:define-syntax|define-syntax-rule|define-macro)\s+\(([^\s()\[\]]+)/, + /^\(\s*(?:define-syntax|define-syntax-rule|define-macro)\s+([^\s()\[\]]+)/, + /^\(\s*define-record-type\s+([^\s()\[\]]+)/, + /^\(\s*define-class\s+([^\s()\[\]]+)/, ]; for (const pattern of patterns) {