aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/c-util.boot2
2 files changed, 6 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 4f9cc3c7..c29408c4 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2011-03-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/c-util.boot (equalFormTemplate): Tidy comparison of value
+ argument to constructors.
+
+2011-03-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/c-util.boot (mutateArgumentList): New.
(inlineDirectCall): Break out of replaceSimpleFunctions.
(resolveIndirectCall): Break out of foldSpadcall.
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 40a5c8e0..7525bdb5 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1699,7 +1699,7 @@ equalFormTemplate(shell,args,slot,form) ==
equalFormTemplate(shell,args,args.n,form)
slot is ["NTREVAL",val] => form = val
slot is ["QUOTE",val] =>
- string? val => val = form
+ string? val or symbol? val or integer? val => val = form
slot = form
atom slot or atom form => form = slot
#slot ~= #form => false