Re: stylesheets ans NLS

Subject: Re: stylesheets ans NLS
From: "Russell Steven Shawn O'Connor" <roconnor@xxxxxxxxxxxx>
Date: Mon, 17 Apr 2000 12:07:35 -0400 (EDT)
On Mon, 17 Apr 2000, Russell Steven Shawn O'Connor wrote:

> (define (look-up-string lang table)
> 	(if (assoc lang table)
> 	    (assoc lang table)
>             (debug (string-append "No translation for " (symbol->string
> 	          codLang))
> )       )   )

should be

(define (look-up-string lang table)
	(if (assoc lang table)
	    (car (cdr (assoc lang table)))
            (debug (string-append "No translation for " (symbol->string
)       )   )

Russell O'Connor                           roconnor@xxxxxxxxxxxx
``Paradoxically, a refusal to `put a monetary value on life' means that
life is often undervalued.'' -- Artificial Intelligence: A Modern Approach

 DSSSList info and archive:

Current Thread