This is the mail archive of the
kawa@sourceware.org
mailing list for the Kawa project.
Warnings from a srfi-42 snippet in an r7rs library
- From: Seth Alves <alves at hungry dot com>
- To: kawa at sourceware dot org
- Date: Wed, 26 Nov 2014 06:28:33 -0800
- Subject: Warnings from a srfi-42 snippet in an r7rs library
- Authentication-results: sourceware.org; auth=none
This code appears in the srfi-42 reference. If the
(define (ec-:vector-filter vecs) ...)
appears in an r7rs library, I see some warnings:
./test-kawa.scm:10:16: warning - no declaration seen for $lookup$
./test-kawa.scm:10:16: warning - no declaration seen for ec-
./test-kawa.scm:11:33: warning - no declaration seen for $lookup$
./test-kawa.scm:11:33: warning - no declaration seen for ec-
If it's outside the library, I don't see these warnings.
-seth
(define-library (testlib)
(export ec-:vector-filter)
(import (scheme base))
(begin
(define (ec-:vector-filter vecs)
(if (null? vecs)
'()
(if (zero? (vector-length (car vecs)))
(ec-:vector-filter (cdr vecs))
(cons (car vecs) (ec-:vector-filter (cdr vecs))))))))
(import (scheme base)
(scheme write)
(testlib))
(display "ok\n")