From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Rob Browning Newsgroups: gmane.lisp.guile.devel Subject: Re: How to detect a procedure Date: Tue, 30 Apr 2002 21:35:40 -0500 Sender: guile-devel-admin@gnu.org Message-ID: <87ofg0k32b.fsf@raven.i.defaultvalue.org> References: <0204291900310F.10649@locke.free-expression.org> <3CCDE6FD.762240DA@pacbell.net> <87y9f5pa6e.fsf@raven.i.defaultvalue.org> <3CCF436E.C4D765DF@pacbell.net> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1020230312 14184 127.0.0.1 (1 May 2002 05:18:32 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 1 May 2002 05:18:32 +0000 (UTC) Cc: Lynn Winebarger , bitwize@wizards-of-source.org, guile-devel@gnu.org Return-path: Original-Received: from fencepost.gnu.org ([199.232.76.164]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 172mVc-0003gf-00 for ; Wed, 01 May 2002 07:18:32 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 172mUn-00055U-00; Wed, 01 May 2002 01:17:41 -0400 Original-Received: from dsl-209-87-109-2.constant.com ([209.87.109.2] helo=defaultvalue.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 172jyQ-0007LB-00 for ; Tue, 30 Apr 2002 22:36:06 -0400 Original-Received: from raven.i.defaultvalue.org (raven.i.defaultvalue.org [192.168.1.7]) by defaultvalue.org (Postfix) with ESMTP id D39406260; Tue, 30 Apr 2002 21:35:51 -0500 (CDT) Original-Received: by raven.i.defaultvalue.org (Postfix, from userid 1000) id BE03A30A8; Tue, 30 Apr 2002 21:35:40 -0500 (CDT) Original-To: Bruce Korb In-Reply-To: <3CCF436E.C4D765DF@pacbell.net> (Bruce Korb's message of "Tue, 30 Apr 2002 18:22:54 -0700") Original-Lines: 27 User-Agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.2 (i386-debian-linux-gnu) Errors-To: guile-devel-admin@gnu.org X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Developers list for Guile, the GNU extensibility library List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.lisp.guile.devel:573 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:573 Bruce Korb writes: > I would like: > > (defined-as? 'mumble scm_class_procedure) > > to be equivalent to: > > (and (defined? 'mumble) (procedure? mumble)) > > but the latter is conceptually simpler. I like simple. or if you really like the idea of a helper, perhaps (nb: not tested, or even carefully checked :>): (define-macro (defined-as? item predicate) `(and (defined? ,item) (,predicate ,item))) i.e. (defined-as? 'mumble procedure?) -- Rob Browning rlb @defaultvalue.org, @linuxdevel.com, and @debian.org Previously @cs.utexas.edu GPG=1C58 8B2C FB5E 3F64 EA5C 64AE 78FE E5FE F0CB A0AD _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://mail.gnu.org/mailman/listinfo/guile-devel