aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/buildom.boot2
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index ba2cd791..0aad1b5a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
2011-06-21 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/buildom.boot (MappingCategory): Take argument by value.
+
+2011-06-21 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/compiler.boot: Remove reference to $SingleFloat.
* interp/foam_l.lisp: Likewise.
* interp/fortcall.boot: Likewise.
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot
index 5e666fcf..df276d9d 100644
--- a/src/interp/buildom.boot
+++ b/src/interp/buildom.boot
@@ -459,7 +459,7 @@ coerceUn2E(x,source) ==
++ A domain that satisfy this predicate provides implementation
++ to abstraction that map values from some type to values
++ of another type.
-MappingCategory(:"sig") ==
+MappingCategory(:sig) ==
sig = nil =>
error '"MappingCategory requires at least one argument"
cat := eval ['Join,$Type,