diff options
| -rw-r--r-- | doc/modules/skribilo/documentation/manual.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm index d4aea0b..beb6cc6 100644 --- a/doc/modules/skribilo/documentation/manual.scm +++ b/doc/modules/skribilo/documentation/manual.scm @@ -35,6 +35,7 @@ :use-module (skribilo source lisp) :use-module (skribilo source xml) + :use-module (oop goops) :use-module (ice-9 optargs)) (fluid-set! current-reader %skribilo-module-reader) @@ -150,6 +151,18 @@ (engine-custom-set! le 'initial-font "Palatino Base 10p")) +;*---------------------------------------------------------------------*/ +;* Keywords should be represented using the right syntax, i.e., */ +;* using the `:KW' style. */ +;*---------------------------------------------------------------------*/ +(define-generic write) +(define-method (write (kw <keyword>) . rest) + (let ((port (if (null? rest) + (current-output-port) + (car rest)))) + (display ":" port) + (display (keyword->symbol kw) port))) + ;*---------------------------------------------------------------------*/ ;* ctrtable ... */ |