diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/c-util.boot | 2 |
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 |