From: "Glenn Michaels" <gmichaels@Safe-mail.net>
To: 24102@debbugs.gnu.org
Subject: bug#24102: Use guile variable objects as SRFI-111 boxes.
Date: Tue, 2 Aug 2016 06:25:56 -0400 [thread overview]
Message-ID: <N1O-3bLcU31rOy@Safe-mail.net> (raw)
In-Reply-To: <N1O-EYuO2QhvA6@Safe-mail.net>
[-- Attachment #1: Type: text/plain, Size: 53 bytes --]
Trivial patch implementing this suggestion attached.
[-- Attachment #2: srfi-111.patch --]
[-- Type: text/x-diff, Size: 818 bytes --]
--- 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>
- (box value)
- box?
- (value unbox set-box!))
-
-(set-record-type-printer! <box>
- (lambda (box port)
- (display "#<box " port)
- (display (number->string (object-address box) 16) port)
- (display " value: ")
- (write (unbox box) port)
- (display ">" port)))
next prev parent reply other threads:[~2016-08-02 10:25 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-07-29 9:21 bug#24102: Use guile variable objects as SRFI-111 boxes Glenn Michaels
2016-08-02 10:25 ` Glenn Michaels [this message]
2016-08-04 20:59 ` Andy Wingo
2016-08-05 4:31 ` Mark H Weaver
2016-08-05 4:37 ` Mark H Weaver
2016-08-18 13:07 ` Glenn Michaels
2016-08-18 16:14 ` Mark H Weaver
2016-08-31 9:03 ` Andy Wingo
2017-03-01 8:51 ` Andy Wingo
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=N1O-3bLcU31rOy@Safe-mail.net \
--to=gmichaels@safe-mail.net \
--cc=24102@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).