From 2139466e18081430ec55245e16ef1ed338af909a Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 14 Apr 2008 23:23:30 +0000 Subject: * interp/compiler.boot: Don't special case ListCategory, String, VECTOR, and VectorCategory. --- src/ChangeLog | 5 +++++ src/interp/compiler.boot | 4 ---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index e9912577..33ab484e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-04-14 Gabriel Dos Reis + + * interp/compiler.boot: Don't special case ListCategory, String, + VECTOR, and VectorCategory. + 2008-04-14 Gabriel Dos Reis * boot/tokens.boot: Don't rename NOT. diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 2e880a24..f8f6ca01 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1642,7 +1642,6 @@ for x in [["|", :"compSuchthat"],_ ["Join", :"compJoin"],_ ["leave", :"compLeave"],_ ["LET", :"compSetq"],_ - ["ListCategory", :"compConstructorCategory"],_ ["MDEF", :"compMacro"],_ ["not", :"compileNot"],_ ["pretend", :"compPretend"],_ @@ -1653,14 +1652,11 @@ for x in [["|", :"compSuchthat"],_ ["return", :"compReturn"],_ ["SEQ", :"compSeq"],_ ["SETQ", :"compSetq"],_ - ["String", :"compString"],_ ["SubDomain", :"compSubDomain"],_ ["SubsetCategory", :"compSubsetCategory"],_ ["Union", :"compCat"],_ ["Mapping", :"compCat"],_ ["UnionCategory", :"compConstructorCategory"],_ - ["VECTOR", :"compVector"],_ - ["VectorCategory", :"compConstructorCategory"],_ ["where", :"compWhere"],_ ["[||]", :"compileQuasiquote"]] repeat MAKEPROP(car x, 'SPECIAL, cdr x) -- cgit v1.2.3