guile-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Help to TeXmacs with Guile 2


From: David Pirotte
Subject: Re: Help to TeXmacs with Guile 2
Date: Sun, 1 Jun 2014 14:54:13 -0300

Hello Germán,

> (if (guile-a?)
>     (define-macro (define-public-macro head . body)
>       `(define-public ,(car head)
>        ;; FIXME: why can't we use procedure->macro
>        ;; for a non-memoizing variant?
>        (procedure->memoizing-macro
>         (lambda (cmd env)
>           (apply (lambda ,(cdr head) ,@body) (cdr cmd)))))))

For these guile version related code, I suggest something like this:

(cond-expand
  (guile-2
    ... ...)
  (else
    (define-macro (unless test . body)
      `(if (not ,test) (begin ,@body)))
      (export unless))))

Here is a real case example [which starts @ line 44]:

        
http://git.savannah.gnu.org/cgit/guile-gnome.git/tree/glib/gnome/gobject/utils.scm

Cheers,
David



reply via email to

[Prev in Thread] Current Thread [Next in Thread]