diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 3 | ||||
| -rw-r--r-- | src/interp/mark.boot | 1 |
2 files changed, 0 insertions, 4 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 0603ba9a..6fa7b699 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -57,7 +57,6 @@ comp3: (%Form,%Mode,%Env) -> %Maybe %Triple compExpression: (%Form,%Mode,%Env) -> %Maybe %Triple compAtom: (%Form,%Mode,%Env) -> %Maybe %Triple compSymbol: (%Form,%Mode,%Env) -> %Maybe %Triple -compString: (%Form,%Mode,%Env) -> %Maybe %Triple compTypeOf: (%Form,%Mode,%Env) -> %Maybe %Triple compForm: (%Form,%Mode,%Env) -> %Maybe %Triple compForm1: (%Form,%Mode,%Env) -> %Maybe %Triple @@ -745,8 +744,6 @@ substituteIntoFunctorModemap(argl,modemap is [[dc,:sig],:.],e) == compConstructorCategory(x,m,e) == [x,resolve($Category,m),e] -compString(x,m,e) == [x,resolve($StringCategory,m),e] - --% SUBSET CATEGORY compSubsetCategory: (%Form,%Mode,%Env) -> %Maybe %Triple diff --git a/src/interp/mark.boot b/src/interp/mark.boot index 07a670c0..75caa58e 100644 --- a/src/interp/mark.boot +++ b/src/interp/mark.boot @@ -1525,7 +1525,6 @@ for x in [["%LET", :"compSetq"],_ ["SubsetCategory", :"compSubsetCategory"],_ ["SubDomain", :"compSubDomain"],_ ["case", :"compCase"],_ - ["String", :"compString"],_ ["RecordCategory", :"compConstructorCategory"],_ ["ListCategory", :"compConstructorCategory"],_ ["VectorCategory", :"compConstructorCategory"],_ |