[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: guile 1.4->1.6 migration hints, questions
|
From: |
Paul Jarc |
|
Subject: |
Re: guile 1.4->1.6 migration hints, questions |
|
Date: |
Wed, 19 Feb 2003 12:24:20 -0500 |
|
User-agent: |
Gnus/5.090015 (Oort Gnus v0.15) Emacs/21.2 (i686-pc-linux-gnu) |
Steve Tell <address@hidden> wrote:
> (if (false-if-exception (eval 'display (current-module)))
> (define (eval-cm exp) (eval exp (current-module)))
> (define eval-cm eval))
Simpler, I think (assuming it works in 1.4, of course):
(if (eq? 2 (car (procedure-property eval 'arity)))
...)
paul