This is the mail archive of the
kawa@sources.redhat.com
mailing list for the Kawa project.
procedure? patch
- From: Chris Dean <ctdean at sokitomi dot com>
- To: Kawa List <kawa at sources dot redhat dot com>
- Date: Thu, 15 Jul 2004 22:19:55 -0700
- Subject: procedure? patch
Below is a small patch to make (procedure? some-keyword:) return false.
Regards,
Chris Dean
Index: kawa/lib/misc.scm
===================================================================
RCS file: /cvs/kawa/kawa/kawa/lib/misc.scm,v
retrieving revision 1.24
diff -u -w -r1.24 misc.scm
--- kawa/lib/misc.scm 31 May 2003 01:39:55 -0000 1.24
+++ kawa/lib/misc.scm 16 Jul 2004 05:16:35 -0000
@@ -19,7 +19,9 @@
(invoke (invoke str 'toString) 'intern))
(define (procedure? x)
- (and (instance? x <function>) (not (instance? x <gnu.mapping.Location>))))
+ (and (instance? x <function>)
+ (not (instance? x <gnu.mapping.Location>))
+ (not (instance? x <keyword>))))
(define (values #!rest (args :: <Object[]>))
(invoke-static <gnu.mapping.Values> 'make args))