diff options
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 8508b526..f419f5a4 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -120,8 +120,8 @@ mkAtree1 x == mkAtree2(x,op,argl) == nargl := #argl - (op= "-") and (nargl = 1) and (INTEGERP CAR argl) => - mkAtree1(MINUS CAR argl) + (op= "-") and (nargl = 1) and (INTEGERP first argl) => + mkAtree1(MINUS first argl) op=":" and argl is [y,z] => [mkAtreeNode "Declare",:argl] op="COLLECT" => [mkAtreeNode op,:transformCollect argl] op= "break" => @@ -205,7 +205,7 @@ mkAtree3(x,op,argl) == lowTest mkAtree1 z x is ["IF",p,"%noBranch",a] => mkAtree1 ["IF",["not",p],a,"%noBranch"] - x is ["RULEDEF",:.] => [mkAtreeNode "RULEDEF",:CDR x] + x is ["RULEDEF",:.] => [mkAtreeNode "RULEDEF",:rest x] x is ["MDEF",sym,junk1,junk2,val] => -- new macros look like macro f == or macro f(x) === -- so transform into that format @@ -259,7 +259,7 @@ mkAtree3(x,op,argl) == -- a is [op,p1,:pr] => -- null pr => mkAtree1 ['DEF,[op,["|",p1,pred]],:r] -- mkAtree1 ['DEF,[op,["|",["tuple",p1,:pr],pred]],:r] --- [mkAtreeNode 'DEF, CDR y,pred,false] +-- [mkAtreeNode 'DEF, rest y,pred,false] --x is ['otherwise,u] => -- throwMessage '" otherwise is no longer supported." z := @@ -449,9 +449,9 @@ remprop(x,prop,e) == e fastSearchCurrentEnv(x,currentEnv) == - u:= QLASSQ(x,CAR currentEnv) => u + u:= QLASSQ(x,first currentEnv) => u while (currentEnv:= QCDR currentEnv) repeat - u:= QLASSQ(x,CAR currentEnv) => u + u:= QLASSQ(x,first currentEnv) => u transformCollect [:itrl,body] == -- syntactic transformation for COLLECT form, called from mkAtree1 |