This is the mail archive of the
kawa@sources.redhat.com
mailing list for the Kawa project.
How to get cond-expand working?
- From: Sven Hartrumpf <Sven dot Hartrumpf at FernUni-Hagen dot de>
- To: kawa at sources dot redhat dot com
- Date: Sun, 01 Jun 2003 19:34:48 +0200 (CEST)
- Subject: How to get cond-expand working?
Hi again.
Reading the documentation I thought SRFI-0 is supported per default.
But the following seems odd to me:
> kawa
#|kawa:1|# (load "kawabug6.scm")
#|kawa:2|# (every? odd? '(1))
gnu.mapping.UnboundSymbol: Unbound symbol every?
at gnu.mapping.NameMap.getChecked(NameMap.java:16)
at gnu.expr.ReferenceExp.eval(ReferenceExp.java:108)
at gnu.expr.ApplyExp.eval(ApplyExp.java:52)
at gnu.expr.ModuleExp.evalModule(ModuleExp.java:160)
at kawa.Shell.run(Shell.java:232)
at kawa.Shell.run(Shell.java:180)
at kawa.Shell.run(Shell.java:167)
at kawa.Shell.run(Shell.java:154)
at kawa.repl.main(repl.java:609)
#|kawa:3|#
This happens for the following file kawabug6.scm (note that the negated condition
yields the same result):
; kawabug6.scm
(cond-expand (kawa
;(not bigloo2.5d)
(define every? (lambda (pred l)
(or (null? l)
(and (pred (car l))
(every? pred (cdr l))))))
)(else)) ; cond-expand
Greetings
Sven
Sven Hartrumpf
--
Computer Science VII
University of Hagen
58084 Hagen - Germany
http://pi7.fernuni-hagen.de