subject:"\[Larceny\-users\] more on read\-dispatch\-vec"

[Larceny-users] more on read-dispatch-vec

2007-04-25 Thread Eduardo Cavazos

Hello, ; Symbol starters. (do ((c 128 (+ 1 c))) ((= c 256)) (vector-set! read-dispatch-vec c read-dispatch-symbol-starter)) (do ((i 0 (+ i 1))) ((= i 256)) (if (char-alphabetic? (integer-char i)) (vector-set!

Re: [Larceny-users] more on read-dispatch-vec

2007-04-25 Thread William D Clinger

Ed wrote: ; Symbol starters. (do ((c 128 (+ 1 c))) ((= c 256)) (vector-set! read-dispatch-vec c read-dispatch-symbol-starter)) (do ((i 0 (+ i 1))) ((= i 256)) (if (char-alphabetic? (integer-char i)) (vector-set!