[PATCH] Added pgettext and npgettext i18n procedures

2023-08-24 Thread Carlos Durán Domínguez
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

[PATCH] pretty-print: add syntax and gexp expressions.

2024-06-02 Thread Carlos Durán Domínguez
(pp-lambda expr)) (('lambda* _ _ . _) (pp-lambda expr)) @@ -197,12 +218,7 @@ port directly 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