Re: [guile-reader-devel] guile-reader releases

[Dmitry Bogatov]

* Ludovic Courtès <address@hidden> [2015-06-02 22:25:21+0200]
> Saluton!
> 
> Dmitry Bogatov <address@hidden> skribis:
> 
> > downloads link is 404:
> >
> >     http://download.savannah.nongnu.org/releases/guile-reader/
> 
> Hmm, it works for me.  Maybe there was a transient error?

My bad. Tried without Tor, it works. Certanly not your issue.

> > Also, there seems to be recent (2015) activity, but last release is
> > dated 2012. Would you be so kind to do release, please? It would greatly
> > simplify packaging.
> 
> Sure, that’s going to happen Real Soon (along with Skribilo, which I’ve
> been planning to do for some time.)

Great! There is request to package Scribilo for Debian, and I am also
interested in it.

> > Another issue, much more involved is GNU lightning 1.2 does not support
> > x86_64, but 2.0 is not supported by guile-reader. It means, that
> > packaged version of guile-reader will not support jit.
> 
> Right, but that’s not actually an issue: just build without lightning.
> That optimization turned out not to be so useful, but it’s costly to
> maintain.

Okay.

> > 2. File attached exposes following problem:
> >    Evaled it works flawlessly, displaying (foo . $foo), but compiled it
> >    prints $foo, which is default read.
> 
> No file attached.  :-)

Happens. Attached. Try

$ guile reader.scm
$ guild compile reader.scm
$ guile reader.scm

> PS: It’s better to use address@hidden for bug reports.
Added to CC, but `git show` reveals maintainer email. Other emails are
harder to find.

-- 
Best regards, Dmitry Bogatov <address@hidden>,
Free Software supporter, esperantisto and netiquette guardian.
GPG: 54B7F00D

(use-modules (system reader library))
(use-modules (system reader))
(eval-when (compile load eval)
  (define sexp-read (token-reader-procedure (standard-token-reader 
'guile-symbol-lower-case)))

  (define $-token-reader
    (make-token-reader #\$
                       (lambda (chr port parent top-level)
                         (cons 'foo (sexp-read chr port top-level)))))

  (define new-reader (make-reader (append (default-reader-token-readers) (list 
$-token-reader))))
  (define only-reader (make-reader (list $-token-reader)))

  (fluid-set! current-reader new-reader))

(display '$foo)

pgpY5z6dHc11U.pgp
Description: PGP signature