diff options
Diffstat (limited to 'src/interp/scan.boot')
| -rw-r--r-- | src/interp/scan.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/scan.boot b/src/interp/scan.boot index e6beeb2a..21b849f4 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -167,7 +167,7 @@ scanKeyWords == [ _ scanKeyTableCons()== KeyTable:=MAKE_-HASHTABLE("CVEC",true) for st in scanKeyWords repeat - HPUT(KeyTable,CAR st,CADR st) + HPUT(KeyTable,CAR st,second st) KeyTable scanKeyTable:=scanKeyTableCons() @@ -247,7 +247,7 @@ for i in [ _ ["LARROW" ,"<-"], _ ["BAR" ,"|"], _ ["SEG" ,".."] _ - ] repeat MAKEPROP(CAR i,'INFGENERIC,CADR i) + ] repeat MAKEPROP(CAR i,'INFGENERIC,second i) -- Scanner |