[Untested] Replace ors in destruct-> examples with ||

Applied to one argument, the empty invocation is an identity transform, compiling as operation-ordering parentheses. This is arguably a bit simpler than alternatives like ors, which requires a macroexpansion (and that the macro be in scope), although that only adds a comment, or worse alternatives, like doto, which compile to a lambda.

Author: gilch

docs/macro_tutorial.rst

@@ -6490,7 +6490,7 @@ There are various ways to check for errors if you want to be strict about it:
    #..                   (.pop 'file sys..stdout) file
    #..                   (.pop 'flush False) flush
    #..                   (.values) values
-   #..                   (-> .keys list !#-1) (ors last-key
+   #..                   (-> .keys list !#-1) (|| last-key
    #..                                         type last-key-type))
    #..  (unless (is_ last-key-type int)
    #..    (throw (TypeError (.format "{!r} is an invalid keyword argument" last-key))))

src/hissp/macros.lissp

@@ -3929,15 +3929,15 @@ sentinel#
   ;; .. code-block:: REPL
   ;;
   ;;    #> (destruct-> nested-data
-  ;;    #..            (!#'ns (ors ns ; The whole SimpleNamespace (progn works too).
+  ;;    #..            (!#'ns (|| ns ; Identity transform. ->, progn, doto, etc. also work.
   ;;    #..                    (getattr 'missing "a default for missing") missing
   ;;    #..                    @#'spam inner ; attribute lookup
   ;;    #..                    @#'a-tuple ([#:-1] ab  [#:] abc ; slices with overlaps
   ;;    #..                                iter (next A  list rest) ; iterator destructuring
   ;;    #..                                ;; Composed transform, method calls, defaults.
   ;;    #..                                (-> enumerate dict) ((.get 2 ()) two
   ;;    #..                                                     (.get 3 ()) three)
-  ;;    #..                                ;; Throwaway names must be unique. (`$#_ always works).
+  ;;    #..                                ;; Throwaway names must be unique. (`,$#_ always works).
   ;;    #..                                iter (next _0  (next :b) B  next _1  (next :d) D)))
   ;;    #..             (.get 'quux "default for quux") myquux)
   ;;    #..  (pprint..pp (locals)))
@@ -4091,8 +4091,8 @@ sentinel#
   ;; .. code-block:: REPL
   ;;
   ;;    #> (destruct-> (dict : spam 1  foo 2)
-  ;;    #..            (ors whole
-  ;;    #..             ors !s#(spam foo))
+  ;;    #..            (|| whole
+  ;;    #..             || !s#(spam foo))
   ;;    #..  (print whole spam foo))
   ;;    >>> # destructQzH_QzGT_
   ;;    ... # hissp.macros.._macro_.letQzH_from
@@ -4144,8 +4144,8 @@ sentinel#
   ;; .. code-block:: REPL
   ;;
   ;;    #> (destruct-> (types..SimpleNamespace : spam 1  foo 2)
-  ;;    #..            (ors whole
-  ;;    #..             ors @s#(spam foo))
+  ;;    #..            (|| whole
+  ;;    #..             || @s#(spam foo))
   ;;    #..  (print whole spam foo))
   ;;    >>> # destructQzH_QzGT_
   ;;    ... # hissp.macros.._macro_.letQzH_from
@@ -4197,7 +4197,7 @@ sentinel#
   ;; .. code-block:: REPL
   ;;
   ;;    #> (destruct-> '(ABC XYZ)
-  ;;    #..            (ors whole  ors pos#(abc pos#(x y)))
+  ;;    #..            (|| whole  || pos#(abc pos#(x y)))
   ;;    #..  (print whole abc x y))
   ;;    >>> # destructQzH_QzGT_
   ;;    ... # hissp.macros.._macro_.letQzH_from