From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Alex Shinn Newsgroups: gmane.lisp.guile.devel Subject: Re: srfi-26 Date: Fri, 16 Jan 2004 12:28:42 +0900 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: <87zncotvv9.wl@strelka.synthcode.com> References: <878ykauf96.wl@strelka.synthcode.com> <87smig3lwo.fsf@zip.com.au> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=US-ASCII X-Trace: sea.gmane.org 1074226726 28593 80.91.224.253 (16 Jan 2004 04:18:46 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 16 Jan 2004 04:18:46 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri Jan 16 05:18:35 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AhLRL-0001YK-00 for ; Fri, 16 Jan 2004 05:18:35 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AhKlr-00020w-D1 for guile-devel@m.gmane.org; Thu, 15 Jan 2004 22:35:43 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AhKgA-0000rR-5o for guile-devel@gnu.org; Thu, 15 Jan 2004 22:29:50 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AhKfa-0000dh-2U for guile-devel@gnu.org; Thu, 15 Jan 2004 22:29:47 -0500 Original-Received: from [210.190.172.57] (helo=mail17d.wh.ocn.ne.jp) by monty-python.gnu.org with smtp (Exim 4.24) id 1AhKfZ-0000cI-2T for guile-devel@gnu.org; Thu, 15 Jan 2004 22:29:13 -0500 Original-Received: from www.technowing.com (61.112.39.109) by mail17d.wh.ocn.ne.jp (RS ver 1.0.87vs) with SMTP id 4-0227513729 for ; Fri, 16 Jan 2004 12:28:50 +0900 (JST) Original-Received: from localhost ([127.0.0.1] helo=strelka.synthcode.com ident=foof) by strelka.synthcode.com with esmtp (Exim 3.36 #1 (Debian)) id 1AhKf5-0002db-00 for ; Fri, 16 Jan 2004 12:28:43 +0900 Original-To: guile-devel@gnu.org In-Reply-To: <87smig3lwo.fsf@zip.com.au> User-Agent: Wanderlust/2.10.1 (Watching The Wheels) Emacs/21.3 Mule/5.0 (SAKAKI) X-Loop-Detect: 1 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Developers list for Guile, the GNU extensibility library List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:3224 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:3224 At Fri, 16 Jan 2004 08:08:23 +1000, Kevin Ryde wrote: > > Alex Shinn 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