r7rs-small-texinfo

commit 64873a574789b8dbf716697fc2751f1adaf5de32
parent 44e650835231bc3304cd134e40b458ded34bcab4
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Wed, 31 Jan 2024 14:28:05 +0200

Add @bra{} and @ket{} for angle brackets.

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

2 files changed, 26 insertions(+), 2 deletions(-)
diff --git a/doc/r7rs-small/macros.texinfo b/doc/r7rs-small/macros.texinfo
@@ -18,3 +18,27 @@
 @inlineraw{tex, $\\langle$\name\$\\rangle$}
 @end macro
 @end iftex
+
+@c For variable names like: string<=? string>=
+@c XXX: Not sure if these are working, because I'm working with an uncompiling version of r7rs-small.texinfo.
+@macro bra {}
+@U{27e8}
+@end macro
+
+@macro ket {}
+@U{27e9}
+@end macro
+
+@iftex
+@unmacro bra
+@macro bra {}
+@inlineraw{tex, $\\langle$}
+@end macro
+@end iftex
+
+@iftex
+@unmacro ket
+@macro ket {}
+@inlineraw{tex, $\\rangle$}
+@end macro
+@end iftex
diff --git a/doc/r7rs-small/r7rs-small.texinfo b/doc/r7rs-small/r7rs-small.texinfo
@@ -5690,8 +5690,8 @@ lexicographically less than the longer string. However, it is also permitted to 
 natural ordering imposed by the implementation's internal representation of strings, or
 a more complex locale-specific ordering.
 
-In all cases, a pair of strings must satisfy exactly one of string@svar{?, string=?, and string}?,
-and must satisfy string@svar{=? if and only if they do not satisfy string}? and string>=? if and
+In all cases, a pair of strings must satisfy exactly one of string@bra{}?, string=?, and string@ket{}?,
+and must satisfy string@bra{}=? if and only if they do not satisfy string@ket{}? and string@ket{}=? if and
 only if they do not satisfy string<?.
 
 The ``-ci'' procedures behave as if they applied string-foldcase to their arguments before