From 7e9b59c62856266395ff4d5dcd50390625fde351 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 26 Feb 2019 08:32:20 -0800 Subject: 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. --- txr.1 | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'txr.1') 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)) -- cgit v1.2.3