From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: Dale Mellor Newsgroups: gmane.lisp.guile.bugs Subject: bug#41126: [PATCH] doc: Added very minimal doc strings to (srfi srfi-9 gnu). Date: Thu, 07 May 2020 12:54:37 +0100 Organization: DM Bespoke Computer Solutions Ltd Message-ID: <781f4e51b70f51341333c0f33fa5943e1ee8149d.camel@rdmp.org> Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="68844"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Evolution 3.30.5-1.1 To: 41126@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Thu May 07 17:42:08 2020 Return-path: Envelope-to: guile-bugs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jWif2-000Hpo-E3 for guile-bugs@m.gmane-mx.org; Thu, 07 May 2020 17:42:08 +0200 Original-Received: from localhost ([::1]:44090 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jWif1-0004fs-FO for guile-bugs@m.gmane-mx.org; Thu, 07 May 2020 11:42:07 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:59602) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jWiew-0004fD-Hh for bug-guile@gnu.org; Thu, 07 May 2020 11:42:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:60458) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jWiew-00033G-8K for bug-guile@gnu.org; Thu, 07 May 2020 11:42:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jWiew-0002y2-5A for bug-guile@gnu.org; Thu, 07 May 2020 11:42:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Dale Mellor Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Thu, 07 May 2020 15:42:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 41126 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-guile Original-Received: via spool by submit@debbugs.gnu.org id=B.158886608911348 (code B ref -1); Thu, 07 May 2020 15:42:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 7 May 2020 15:41:29 +0000 Original-Received: from localhost ([127.0.0.1]:43769 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jWieP-0002wy-Gf for submit@debbugs.gnu.org; Thu, 07 May 2020 11:41:29 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:38172) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jWf6w-0004b8-9B for submit@debbugs.gnu.org; Thu, 07 May 2020 07:54:42 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:35438) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jWf6w-0005OA-0u for bug-guile@gnu.org; Thu, 07 May 2020 07:54:42 -0400 Original-Received: from ec2-52-19-174-175.eu-west-1.compute.amazonaws.com ([52.19.174.175]:51364 helo=rdmp.org) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jWf6v-00068c-3C for bug-guile@gnu.org; Thu, 07 May 2020 07:54:41 -0400 Original-Received: from [127.0.0.1] (helo=localhost) by rdmp.org with esmtp (Exim 4.92) (envelope-from ) id 1jWf6r-00015A-T9 for bug-guile@gnu.org; Thu, 07 May 2020 11:54:38 +0000 Received-SPF: softfail client-ip=52.19.174.175; envelope-from=guile-qf1qmg@rdmp.org; helo=rdmp.org X-detected-operating-system: by eggs.gnu.org: First seen = 2020/05/07 07:54:38 X-ACL-Warn: Detected OS = ??? X-Spam_score_int: 5 X-Spam_score: 0.5 X-Spam_bar: / X-Spam_report: (0.5 / 5.0 requ) BAYES_00=-1.9, RDNS_DYNAMIC=0.982, SPF_HELO_SOFTFAIL=0.732, SPF_SOFTFAIL=0.665 autolearn=_AUTOLEARN X-Spam_action: no action X-Mailman-Approved-At: Thu, 07 May 2020 11:41:28 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.io gmane.lisp.guile.bugs:9745 Archived-At: * module/srfi/srfi-9/gnu.scm: Added some doc strings. --- module/srfi/srfi-9/gnu.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/module/srfi/srfi-9/gnu.scm b/module/srfi/srfi-9/gnu.scm index 219bcdebb..0b9024e75 100644 --- a/module/srfi/srfi-9/gnu.scm +++ b/module/srfi/srfi-9/gnu.scm @@ -31,19 +31,25 @@ set-fields)) (define (set-record-type-printer! type proc) - "Set PROC as the custom printer for TYPE." + "- Scheme Procedure: set-record-type-printer! TYPE PROC + Set PROC as the custom printer for TYPE." (struct-set! type vtable-index-printer proc)) (define-syntax-rule (define-immutable-record-type name ctor pred fields ...) + "- Scheme Procedure: define-immutable-record-type NAME CTOR PRED (FIELD GETTER [SETTER]) ..." ((@@ (srfi srfi-9) %define-record-type) #t (define-immutable-record-type name ctor pred fields ...) name ctor pred fields ...)) (define-syntax-rule (set-field s (getter ...) expr) + "- Scheme Procedure: set-field RECORD (GETTER ...) EXPR + Set the field in RECORD with the GETTER, to the value of EXPR." (%set-fields #t (set-field s (getter ...) expr) () s ((getter ...) expr))) (define-syntax-rule (set-fields s . rest) + "- Scheme Procedure: set-fields RECORD ((GETTER ...) EXPR) ... + Set the fields in the RECORD with the given GETTERs to the corresponding EXPRessions." (%set-fields #t (set-fields s . rest) () s . rest)) -- 2.20.1