ly after OBJ, like (pretty-print OBJ PORT)."
(define (pp-quote expr)
(match obj
((head x)
- (put-string port
- (match x
- ('quote "'")
- ('quasiquote "`")
- ('unquote ",")
- ('unquote-splicing ",@")))
+ (put-string port (assq-ref macro-expr-alist x))
(pr x pp-expr
(define (pp-lambda expr)
--
Carlos Durán Domínguez
GPG key: https://wurtshell.com/wurt.gpg
I wanted to add i18n functions that depends on context. The older
libguile/libgettext.h header did not reference the pgettext family functions,
so I updated to the last version of gettext.
* libguile/gettext.h libguile/gettext.c (pgettext): New procedure.
* libguile/gettext.h libguile/gettext.c