Matt Wette writes:

>> You are right.  If I use the string parser it parses correctly.  If I use 
>> the file parser it does not. 
>> I need to check this out.
>
> And I found it.   Thanks. — Mtt
>
> @@ -244,8 +244,8 @@
>                     ((#\v) (cons #\vtab cl))
>                     ((#\x) (cons (integer->char (read-hex ch)) cl))
>                     (else
> -                    (if (char-numeric? ch)
> -                        (cons (integer->char (read-oct ch)) cl)
> +                    (if (char-numeric? c1)
> +                        (cons (integer->char (read-oct c1)) cl)
>                          (cons c1 cl))))
>                   (read-char))))
>               ((eq? ch #\") (cons '$string (lxlsr cl)))

Oh, nice and honest bug :-)

Thanks!  Applied locally; switched to 0.80.4+ patches now which gives
good tcc progress.

Greetings,
janneke

-- 
Jan Nieuwenhuizen <[email protected]> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com

Reply via email to