Re: stylesheets ans NLS

["Russell Steven Shawn O'Connor" <roconnor@xxxxxxxxxxxx>]

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
	          codLang))
)       )   )

-- 
Russell O'Connor                           roconnor@xxxxxxxxxxxx
       <http://www.undergrad.math.uwaterloo.ca/~roconnor/>
``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:  http://www.mulberrytech.com/dsssl/dssslist