diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
commit | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (patch) | |
tree | 2e2a2eb23ff2cb76b6eb3ae763a480ac1f0078ad /src/interp/c-doc.boot | |
parent | 868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff) | |
download | open-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz |
* interp/: More cleanup.
Diffstat (limited to 'src/interp/c-doc.boot')
-rw-r--r-- | src/interp/c-doc.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index 131897fd..cf42a4ad 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -102,7 +102,7 @@ recordDocumentation(key,lineno) == --record NIL to mean "there was no documentation" $maxSignatureLineNumber := lineno $docList := [[key,:u],:$docList] - -- leave CAR of $docList alone as required by collectAndDeleteAssoc + -- leave first of $docList alone as required by collectAndDeleteAssoc recordHeaderDocumentation lineno == if $maxSignatureLineNumber = 0 then @@ -139,7 +139,7 @@ finalizeDocumentation() == y is [x,b] and b is [='attribute,:r] => attributes := [[x,:r],:attributes] signatures := [y,:signatures] - name := CAR $lisplibForm + name := first $lisplibForm if noHeading or signatures or attributes or unusedCommentLineNumbers then sayKeyedMsg("S2CD0001",NIL) bigcnt := 1 @@ -1005,7 +1005,7 @@ checkBalance u == do x := first u openClose := assoc(x,$checkPrenAlist) --is it an open bracket? - => stack := [CAR openClose,:stack] --yes, push the open bracket + => stack := [first openClose,:stack] --yes, push the open bracket open := rassoc(x,$checkPrenAlist) => --it is a close bracket! stack is [top,:restStack] => --does corresponding open bracket match? if open ~= top then --yes: just pop the stack @@ -1042,7 +1042,7 @@ checkBeginEnd u == x = '"\beginitems" => beginEndStack := ["items",:beginEndStack] x = '"\begin" => - u is [.,=$charLbrace,y,:r] and CAR r = $charRbrace => + u is [.,=$charLbrace,y,:r] and first r = $charRbrace => if not member(y,$beginEndList) then checkDocError ['"Unknown begin type: \begin{",y,'"}"] beginEndStack := [y,:beginEndStack] @@ -1054,7 +1054,7 @@ checkBeginEnd u == checkDocError ['"\item appears outside a \begin-\end"] checkDocError ['"\item appears within a \begin{",IFCAR beginEndStack,'"}.."] x = '"\end" => - u is [.,=$charLbrace,y,:r] and CAR r = $charRbrace => + u is [.,=$charLbrace,y,:r] and first r = $charRbrace => y = IFCAR beginEndStack => beginEndStack := rest beginEndStack u := r |