diff --git a/books/bookvol9.pamphlet b/books/bookvol9.pamphlet index 12deab8..794814c 100644 --- a/books/bookvol9.pamphlet +++ b/books/bookvol9.pamphlet @@ -3958,7 +3958,7 @@ The READLOOP calls preparseReadLine which returns a pair of the form \begin{chunk}{defun preparse1} (defun preparse1 (linelist) (labels ( - (isSystemCommand (line lines) + (isSystemCommand (line) (and (> (length line) 0) (eq (char line 0) #\) ))) (executeSystemCommand (line) (catch 'spad_reader (|doSystemCommand| (subseq line 1)))) @@ -3977,7 +3977,7 @@ READLOOP (ncomblock (fincomblock nil nums locs ncomblock nil))) (return (pair (nreverse nums) (parsepiles (nreverse locs) (nreverse lines))))) - (when (and (null lines) (isSystemCommand line lines)) + (when (and (null lines) (isSystemCommand line)) (preparse-echo linelist) (setq $preparse-last-line nil) ;don't reread this line (executeSystemCommand line) diff --git a/changelog b/changelog index 6d531ba..0e380d7 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,5 @@ +20110228 tpd src/axiom-website/patches.html 20110228.03.tpd.patch +20110228 tpd books/bookvol9 fix special declaration for lines in preparse1 20110228 tpd src/axiom-website/patches.html 20110228.02.tpd.patch 20110228 tpd books/tangle.lisp fix help file extraction 20110228 tpd src/axiom-website/patches.html 20110228.01.tpd.patch diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index 856be32..bfefb7a 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -3409,5 +3409,7 @@ books/bookvol9 treeshake compiler
books/bookvol9 treeshake compiler
20110228.02.tpd.patch books/tangle.lisp fix help file extraction
+20110228.03.tpd.patch +books/bookvol9 fix special declaration for lines in preparse1