This is the mail archive of the
kawa@sourceware.org
mailing list for the Kawa project.
Re: Kawa build warnings - next warning
- From: Yaroslav Kavenchuk <kavenchuk at gmail dot com>
- Cc: Per Bothner <per at bothner dot com>, kawa at sourceware dot org
- Date: Fri, 11 Jan 2008 14:10:19 +0200
- Subject: Re: Kawa build warnings - next warning
- References: <478735A1.3020502@gmail.com>
I wrote:
in emacs.scm:
(define (insert-char ch #!optional (count '())
(buffer :: <buffer> (current-buffer)))
(invoke buffer 'insert ch (if (eq? count '()) 1 count) #!null))
Is true rewrite it as
(define (insert-char ch :: <char> #!optional (count '())
(buffer :: <buffer> (current-buffer)))
(invoke buffer 'insert ch (if (eq? count '()) 1 count) #!null))
or
(define (insert-char ch #!optional (count '())
(buffer :: <buffer> (current-buffer)))
(invoke buffer 'insert (as <char> ch) (if (eq? count '()) 1 count)
#!null))
?
Hmm, why not so:
(define (insert-char ch :: <char> #!optional (count :: <int> 1)
(buffer :: <buffer> (current-buffer)))
(invoke buffer 'insert ch count #!null))
--
WBR, Yaroslav Kavenchuk.