On Thursday 24 November 2005 04:17, felix winkelmann wrote: > Then you must been doing something wrong... > > (set-dispatch-read-syntax! > #\> > (lambda (p) > (let loop () > (let ((c (read-char p))) > (cond ((eof-object? c) (error "unexpected end of file")) > ((char=? c #\<) > (if (char=? #\# (read-char p)) > #f > (loop))) > (else (loop))))))) > > (pp (with-input-from-string "(1 2 #\\d #t)" read)) > (pp (with-input-from-string "#> ... nothing ... <#" read))
This worked. Thanks. Note: http://www.call-with-current-continuation.org/manual/Reader-extensions.html#index-set_002ddispatch_002dread_002dsyntax_0021-231 specifies only one argument for set-dispatch-read-syntax!, that confused me. -- Pupeno <[EMAIL PROTECTED]> (http://pupeno.com)
pgpVyimzdinyX.pgp
Description: PGP signature
_______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
