From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: "Glenn Michaels" Newsgroups: gmane.lisp.guile.bugs Subject: bug#24102: Use guile variable objects as SRFI-111 boxes. Date: Tue, 2 Aug 2016 06:25:56 -0400 Message-ID: References: NNTP-Posting-Host: blaine Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="-----5KVYT3G4Q6BC2-57A07534.2373-L9Y0JA6PWR4JQ-----" X-Trace: blaine.gmane.org 1470134180 17590 195.159.176.226 (2 Aug 2016 10:36:20 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 2 Aug 2016 10:36:20 +0000 (UTC) To: 24102@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Tue Aug 02 12:36:16 2016 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bUX3R-0001Sc-OT for guile-bugs@m.gmane.org; Tue, 02 Aug 2016 12:36:10 +0200 Original-Received: from localhost ([::1]:55157 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bUWut-00084k-Ji for guile-bugs@m.gmane.org; Tue, 02 Aug 2016 06:27:19 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:56315) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bUWuj-00084Z-IC for bug-guile@gnu.org; Tue, 02 Aug 2016 06:27:13 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bUWuc-0005Bm-DQ for bug-guile@gnu.org; Tue, 02 Aug 2016 06:27:07 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:56097) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bUWuc-0005BT-9Y for bug-guile@gnu.org; Tue, 02 Aug 2016 06:27:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1bUWuc-0004Bu-4h for bug-guile@gnu.org; Tue, 02 Aug 2016 06:27:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: "Glenn Michaels" Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Tue, 02 Aug 2016 10:27:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 24102 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 24102-submit@debbugs.gnu.org id=B24102.147013358416066 (code B ref 24102); Tue, 02 Aug 2016 10:27:02 +0000 Original-Received: (at 24102) by debbugs.gnu.org; 2 Aug 2016 10:26:24 +0000 Original-Received: from localhost ([127.0.0.1]:53394 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bUWtw-0004B0-2I for submit@debbugs.gnu.org; Tue, 02 Aug 2016 06:26:24 -0400 Original-Received: from www.safe-mail.net ([212.29.227.81]:34044 helo=orange.safe-mail.net) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bUWto-0004Al-4G for 24102@debbugs.gnu.org; Tue, 02 Aug 2016 06:26:18 -0400 Original-Received: by orange.safe-mail.net with Safe-mail (Exim 4.84) (envelope-from ) id 1bUWtY-0002MP-Ml for 24102@debbugs.gnu.org; Tue, 02 Aug 2016 06:25:56 -0400 DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=N1-0105; d=Safe-mail.net; b=R5xtmL/PtBV7NsL7grK3o0dM85MIjhR/rAhqmcZUiBwQeSt5VTbg8dMECbkYO18+ RgAG3tcIpK/mjI6UrpMfgmzIiZzP4PQ2AY2Yt3Gpn3ZJ9vmxUTh7gdIiWz4PA7sH YvgUP1oxwHQM4LgnqLR9bYkiT58rUVS2XqwN1cagN4I=; Original-Received: from pc ([94.242.246.24]) by Safe-mail.net with https X-SMType: Regular X-SMRef: N1O-3bLcU31rOy X-SMSignature: DTD8CPBs1XP4VCalAQ71ffhb/elLDFhePiG+bGE+Jkm+agOt+34D63AXAhQ+heGv 52NACI26u/rqr7ptusLR9FNOM6oZuHv31dHtHY4FIPNC03bop9KePm++7jJRxdDJ xkX9WicgBcLR4MT3jjz5FotZ/VF+16lqddYtel0e/4Q= X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 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.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.org gmane.lisp.guile.bugs:8323 Archived-At: This is a multi-part message in MIME format. -------5KVYT3G4Q6BC2-57A07534.2373-L9Y0JA6PWR4JQ----- Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Trivial patch implementing this suggestion attached. -------5KVYT3G4Q6BC2-57A07534.2373-L9Y0JA6PWR4JQ----- Content-Type: text/x-diff; name="srfi-111.patch" Content-Disposition: attachment; filename="srfi-111.patch" Content-Transfer-Encoding: 7bit --- a/module/srfi/srfi-111.scm +++ b/module/srfi/srfi-111.scm @@ -17,21 +17,9 @@ ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (define-module (srfi srfi-111) - #:use-module (srfi srfi-9) - #:use-module (srfi srfi-9 gnu) - #:export (box box? unbox set-box!)) + #:re-export ((make-variable . box) + (variable? . box?) + (variable-ref . unbox) + (variable-set! . set-box!))) (cond-expand-provide (current-module) '(srfi-111)) - -(define-record-type - (box value) - box? - (value unbox set-box!)) - -(set-record-type-printer! - (lambda (box port) - (display "#string (object-address box) 16) port) - (display " value: ") - (write (unbox box) port) - (display ">" port))) -------5KVYT3G4Q6BC2-57A07534.2373-L9Y0JA6PWR4JQ-------