aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ChangeLog5
-rw-r--r--src/interp/i-funsel.boot1
2 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index ec02013e..5fe8e6a5 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-13 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * i-funsel.boot (selectMms): Don't reject modemaps involving
+ Domain.
+
2007-11-11 Gabriel Dos Reis <gdr@cs.tamu.edu>
* Makefile.pamphlet (nrunfast.$(FASLEXT)): New rule.
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot
index ee1202fd..63301045 100644
--- a/src/interp/i-funsel.boot
+++ b/src/interp/i-funsel.boot
@@ -87,7 +87,6 @@ selectMms(op,args,$declaredMode) ==
types1 := getOpArgTypes(n,args)
numArgs := #args
member('(SubDomain (Domain)),types1) => NIL
- member('(Domain),types1) => NIL
member($EmptyMode,types1) => NIL
tar := getTarget op