doc: fix references to sys:expand.

* txr.1: In a few places, we are referring to sys:expand which
has been made public as usr:expand.

1 files changed, 9 insertions, 9 deletions

diff --git a/txr.1 b/txr.1
index dfbbaec6..1260bab5 100644
--- a/txr.1
+++ b/txr.1
@@ -33638,7 +33638,7 @@ evaluation order.
   (call car-update-expander 'getit 'setit '(car [a 0])
     '(setit (+ (getit) 1)))
 
-  -->  ;; Resulting code:
+  ;; --> Resulting code:
 
   (rlet ((#:g0032 [a 0]))
     (macrolet ((getit nil
@@ -33648,16 +33648,16 @@ evaluation order.
                          (list '#:g0032) (list val))))
       (setit (+ (getit) 1))))
 
-  ;; Same expander call as above, with a sys:expand to show the
-  ;; fully expanded version of the returned code, in which the
-  ;; setit and getit calls have disappeared, replaced by their
-  ;; macro-expansions.
+  ;; Same expander call as above, with a call to expand added
+  ;; to show the fully expanded version of the returned code,
+  ;; in which the ;; setit and getit calls have disappeared,
+  ;; replaced by their macro-expansions.
 
-  (sys:expand
+  (expand
     (call car-update-expander 'getit 'setit '(car [a 0])
       '(setit (+ (getit) 1))))
 
-  -->
+  ;; --> Resulting code:
 
   (let ((#:g0032 [a 0]))
     (sys:rplaca #:g0032 (+ (car #:g0032) 1)))
@@ -33899,7 +33899,7 @@ A full expansion, with the
 local macros expanded out:
 
 .cblk
-  (sys:expand '(swap a b))
+  (expand '(swap a b))
 
   -->
 
@@ -34623,7 +34623,7 @@ are assignable, and provide temporary storage.
            (y a))
       (+ x y)))  -->  43
 
-  (sys:expand
+  (expand
     '(let ((a 42))
       (rlet ((x 1)
              (y a))