diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
| commit | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (patch) | |
| tree | 8efa5738e30f54559a22950f8b4c3dc33ab4c284 /src/interp/msgdb.boot | |
| parent | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (diff) | |
| download | open-axiom-d1ae1fd7646c2b81c3d23752f6956c7db888e916.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 8df46589..446ccd09 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -207,7 +207,7 @@ substituteSegmentedMsg(msg,args) == --end of the list. (using %n and %y) l := cons?(arg) => - MEMQ(char 'y,q) or (first arg = '"%y") or ((LENGTH arg) = 1) => + MEMQ(char 'y,q) or (first arg = '"%y") or ((# arg) = 1) => append(reverse arg, l) head := first arg tail := rest arg @@ -227,7 +227,7 @@ addBlanks msg == -- adds proper blanks atom msg => msg null msg => msg - LENGTH msg = 1 => msg + # msg = 1 => msg blanksOff := false x := first msg if x = '"%n" then |