From: Alex Shinn <foof@synthcode.com>
Subject: Re: srfi-26
Date: Fri, 16 Jan 2004 12:28:42 +0900 [thread overview]
Message-ID: <87zncotvv9.wl@strelka.synthcode.com> (raw)
In-Reply-To: <87smig3lwo.fsf@zip.com.au>
At Fri, 16 Jan 2004 08:08:23 +1000, Kevin Ryde wrote:
>
> Alex Shinn <foof@synthcode.com> writes:
> >
> > The reference implementation is public domain,
>
> I think the gnu maintainer guide says you still need the author to
> sign a disclaimer before incorporating it.
For public domain work can't you just cut&paste it and then call
yourself the author?
Anyway, the guide says
A change of just a few lines (less than 15 or so) is not legally
significant for copyright.
and if you shorten the variable names and refactor cute in terms of cut
you can get it down to 14 lines:
(define-syntax %cut
(syntax-rules (<> <...>)
((_ (slot ...) (f x ...)) (lambda (slot ...) ((begin f) x ...)))
((_ (slot ...) (f x ...) <...>) (lambda (slot ... . y) (apply f x ... y)))
((_ (slot ...) (pos ...) <> . se) (%cut (slot ... x) (pos ... x) . se))
((_ (slot ...) (pos ...) nse . se) (%cut (slot ...) (pos ... nse) . se))))
(define-syntax %cute
(syntax-rules (<> <...>)
((_ (args ...)) (%cut () () args ...))
((_ (args ...) <...>) (%cut () () args ... <...>))
((_ (args ...) <> rest ...) (%cute (args ... <>) rest ...))
((_ (args ...) x rest ...) (let ((y x)) (%cute (args ... y) rest ...)))))
(define-syntax cut (syntax-rules () ((cut . x) (%cut () () . x))))
(define-syntax cute (syntax-rules () ((cute . x) (%cute () . x))))
--
Alex
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel
next prev parent reply other threads:[~2004-01-16 3:28 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-01-15 2:17 srfi-26 Alex Shinn
2004-01-15 9:36 ` srfi-26 Daniel Skarda
2004-01-21 0:44 ` srfi-26 Marius Vollmer
2004-01-23 0:44 ` srfi-26 Kevin Ryde
2004-01-24 10:22 ` srfi-26 Daniel Skarda
2004-02-28 20:15 ` srfi-26 Kevin Ryde
2004-02-29 10:04 ` srfi-26 Daniel Skarda
2004-03-01 21:10 ` srfi-26 Kevin Ryde
2004-01-15 22:08 ` srfi-26 Kevin Ryde
2004-01-16 3:28 ` Alex Shinn [this message]
2004-01-16 4:13 ` srfi-26 Paul Jarc
2004-01-16 18:53 ` srfi-26 Greg Troxel
2004-01-19 8:22 ` srfi-26 Alex Shinn
2004-01-19 16:43 ` srfi-26 Stephen Compall
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=87zncotvv9.wl@strelka.synthcode.com \
--to=foof@synthcode.com \
/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).