From d39e317cd51e0f251d485df1948e2a85a4007048 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 10 Mar 2011 16:40:30 +0000
Subject: 	* interp/c-util.boot (equalFormTemplate): Tidy comparison of
 value 	argument to constructors.

---
 src/interp/c-util.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp')

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
-- 
cgit v1.2.3