unofficial mirror of guile-devel@gnu.org 
 help / color / mirror / Atom feed
* Import your CK macro into Guile?
@ 2012-11-09 18:35 Mark H Weaver
  2012-11-10 10:37 ` oleg
  2012-11-10 18:01 ` Ludovic Courtès
  0 siblings, 2 replies; 9+ messages in thread
From: Mark H Weaver @ 2012-11-09 18:35 UTC (permalink / raw)
  To: oleg; +Cc: guile-devel

[-- Attachment #1: Type: text/plain, Size: 456 bytes --]

Hi Oleg,

I'd like to import your CK macro into Guile.  Would you be willing to
contribute it to Guile?  If so, please respond to the list to say so.
It's small enough (15 lines) that I guess we don't need papers.

Here's what I was hoping to add.  It's slightly modified to use an
internal helper macro instead of using the "arg" trick.

If not, I guess I can reinvent the wheel easily enough, but it seems
silly to do so.

What do you think?

    Mark



[-- Attachment #2: ck.scm --]
[-- Type: text/plain, Size: 2172 bytes --]

;;; ck, an abstract machine to facilitate applicative-order macro
;;; programming

;;; Copyright (C) 2012 Free Software Foundation, Inc
;;; Copyright (C) 2009, 2011 Oleg Kiselyov
;;;
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public
;;; License as published by the Free Software Foundation; either
;;; version 3 of the License, or (at your option) any later version.
;;;
;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;; Lesser General Public License for more details.
;;;
;;; You should have received a copy of the GNU Lesser General Public
;;; License along with this library; if not, write to the Free Software
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;
;;;
;;; Originally written by Oleg Kiselyov and later contributed to Guile.
;;;
;;; Based on the CK machine introduced in:
;;;
;;; Matthias Felleisen and Daniel P. Friedman: Control operators, the
;;; SECD machine, and the lambda-calculus.  In Martin Wirsing, editor,
;;; Formal Description of Programming Concepts III, pages
;;; 193-217. Elsevier, Amsterdam, 1986.
;;; 
;;; See http://okmij.org/ftp/Scheme/macros.html#ck-macros for details.
;;; 

(define-syntax ck
  (syntax-rules (quote)
    ((ck () 'v) v)                      ; yield the value on empty stack

    ((ck (((op ...) ea ...) . s) 'v) ; re-focus on the other argument, ea
     (ck-arg s (op ... 'v) ea ...))

    ((ck s (op ea ...))                ; Focus: handling an application;
     (ck-arg s (op) ea ...))))         ; check if args are values

(define-syntax ck-arg
  (syntax-rules (quote)
    ((ck-arg s (op va ...))             ; all arguments are evaluated,
     (op s va ...))                     ; do the redex

    ((ck-arg s (op ...) 'v ea1 ...)     ; optimization when the first ea
     (ck-arg s (op ... 'v) ea1 ...))    ; was already a value

    ((ck-arg s (op ...) ea ea1 ...)     ; focus on ea, to evaluate it
     (ck (((op ...) ea1 ...) . s) ea))))

^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2012-11-24 23:20 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-11-09 18:35 Import your CK macro into Guile? Mark H Weaver
2012-11-10 10:37 ` oleg
2012-11-10 18:01 ` Ludovic Courtès
2012-11-10 19:13   ` Mark H Weaver
2012-11-23 23:15     ` Ludovic Courtès
2012-11-24  1:41       ` Mark H Weaver
2012-11-24 14:26         ` Ludovic Courtès
2012-11-24 18:53           ` Mark H Weaver
2012-11-24 23:20             ` Ludovic Courtès

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).