diff options
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/ast.boot | 51 | ||||
| -rw-r--r-- | src/boot/strap/ast.clisp | 4 |
2 files changed, 21 insertions, 34 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index adfa6b2e..feabffa6 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -622,7 +622,6 @@ bfLET2(lhs,rhs) == bfLET(lhs,rhs) == $letGenVarCounter : local := 1 --- $inbfLet : local := true bfLET1(lhs,rhs) addCARorCDR(acc,expr) == @@ -681,10 +680,7 @@ bfIS1(lhs,rhs) == IDENTP a => ['EQ,lhs,rhs] ["EQUAL",lhs,rhs] rhs is ['L%T,c,d] => - l := - bfLET(c,lhs) --- $inbfLet => bfLET1(c,lhs) --- bfLET(c,lhs) + l := bfLET(c,lhs) bfAND [bfIS1(lhs,d),bfMKPROGN [l,''T]] rhs is ["EQUAL",a] => ["EQUAL",lhs,a] @@ -723,9 +719,8 @@ bfIS1(lhs,rhs) == bpTrap() bfApplication(bfop, bfarg) == - if bfTupleP bfarg - then cons(bfop,rest bfarg) - else cons(bfop,[bfarg]) + bfTupleP bfarg => [bfop,:rest bfarg] + [bfop,bfarg] -- returns the meaning of x in the appropriate Boot dialect. bfReName x== @@ -915,23 +910,16 @@ shoePROG(v,b)== [["PROG",v,:blist,["RETURN", blast]]] shoeFluids x== - if null x - then nil - else if IDENTP x and bfBeginsDollar x - then [x] - else - if EQCAR(x,"QUOTE") - then [] - else - if atom x - then nil - else append(shoeFluids first x,shoeFluids rest x) -shoeATOMs x== - if null x - then nil - else if atom x - then [x] - else append(shoeATOMs first x,shoeATOMs rest x) + null x => nil + IDENTP x and bfBeginsDollar x => [x] + atom x => nil + EQCAR(x,"QUOTE") => nil + [:shoeFluids first x,:shoeFluids rest x] + +shoeATOMs x == + null x => nil + atom x => [x] + [:shoeATOMs first x,:shoeATOMs rest x] ++ Return true if `x' is an identifier name that designates a ++ dynamic (e.g. Lisp special) variable. @@ -991,12 +979,12 @@ bfTagged(a,b)== ["THE",b,a] bfAssign(l,r)== - if bfTupleP l then bfSetelt(second l,CDDR l ,r) else bfLET(l,r) + bfTupleP l => bfSetelt(second l,CDDR l ,r) + bfLET(l,r) bfSetelt(e,l,r)== - if null rest l - then defSETELT(e,car l,r) - else bfSetelt(bfElt(e,first l),rest l,r) + null rest l => defSETELT(e,first l,r) + bfSetelt(bfElt(e,first l),rest l,r) bfElt(expr,sel)== y:=SYMBOLP sel and GET(sel,"SHOESELFUNCTION") @@ -1114,9 +1102,8 @@ bfMain(auxfn,op)== bfNameOnly: %Thing -> %List bfNameOnly x== - if x="t" - then ["T"] - else [x] + x="t" => ["T"] + [x] bfNameArgs: (%Thing,%Thing) -> %List bfNameArgs (x,y)== diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 79e2f582..9f3ee24c 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -1179,7 +1179,7 @@ (DEFUN |bfApplication| (|bfop| |bfarg|) (COND ((|bfTupleP| |bfarg|) (CONS |bfop| (CDR |bfarg|))) - ('T (CONS |bfop| (LIST |bfarg|))))) + ('T (LIST |bfop| |bfarg|)))) (DEFUN |bfReName| (|x|) (PROG (|a|) @@ -1618,8 +1618,8 @@ (COND ((NULL |x|) NIL) ((AND (IDENTP |x|) (|bfBeginsDollar| |x|)) (LIST |x|)) - ((EQCAR |x| 'QUOTE) NIL) ((ATOM |x|) NIL) + ((EQCAR |x| 'QUOTE) NIL) ('T (APPEND (|shoeFluids| (CAR |x|)) (|shoeFluids| (CDR |x|)))))) (DEFUN |shoeATOMs| (|x|) |