r7rs-small-texinfo

commit 7a7079c39b989f3d54146c80de592a50b7dafc57
parent 8a4c07ac431e8b389c7a8314757d83cab73a700e
Author: Wolfgang Corcoran-Mathe <wcm@sigwinch.xyz>
Date:   Wed, 31 Jan 2024 13:33:17 -0500

Add macros for some Greek characters & use them in example.

Diffstat:
M
doc/r7rs-small/macros.texinfo
 | 
29
+++++++++++++++++++++++++++++
M
doc/r7rs-small/r7rs-small.texinfo
 | 
4
++--

2 files changed, 31 insertions(+), 2 deletions(-)
diff --git a/doc/r7rs-small/macros.texinfo b/doc/r7rs-small/macros.texinfo
@@ -18,3 +18,32 @@
 @inlineraw{tex, $\\langle$\name\$\\rangle$}
 @end macro
 @end iftex
+
+@c Greek characters.
+
+@c Apparently lambda, iota, etc. are already in the Texinfo macro
+@c namespace (but unusable!) and can't be redefined.
+
+@c Insert a lower-case lambda.
+@macro theultimate
+@U{03bb}
+@end macro
+
+@iftex
+@unmacro theultimate
+@macro theultimate {}
+@math{\\lambda}
+@end macro
+@end iftex
+
+@c Insert a lower-case iota.
+@macro greekiota {}
+@U{03b9}
+@end macro
+
+@iftex
+@unmacro greekiota
+@macro greekiota {}
+@math{\\iota}
+@end macro
+@end iftex
diff --git a/doc/r7rs-small/r7rs-small.texinfo b/doc/r7rs-small/r7rs-small.texinfo
@@ -5381,8 +5381,8 @@ Here are some additional examples:
 #\A      ; upper case letter
 #\(      ; left parenthesis
 #\       ; the space character
-#\x03BB  ; @lambda{} (if character is supported)
-#\iota   ; @iota{} (if character and name are supported)
+#\x03BB  ; @theultimate{} (if character is supported)
+#\iota   ; @greekiota{} (if character and name are supported)
 @end example
 
 Case is significant in #\@svar{character}, and in #\⟨character name⟩, but not in #\x<hex scalar