From 18cdfe64dbe07358b58d06a70b8d6bc2c276769d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 18 Apr 2011 10:18:42 +0000
Subject: cleanup

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

(limited to 'src/interp/ax.boot')

diff --git a/src/interp/ax.boot b/src/interp/ax.boot
index 4b38a678..64364130 100644
--- a/src/interp/ax.boot
+++ b/src/interp/ax.boot
@@ -177,7 +177,7 @@ axFormatType(typeform) ==
         SUBLISLIS($FormalMapVariableList, $TriangleVariableList, typeform)
      MEMQ(typeform, $FormalMapVariableList) => typeform
      axAddLiteral('string, 'Symbol, 'Literal)
-     ['RestrictTo, ['LitString, PNAME typeform], 'Symbol]
+     ['RestrictTo, ['LitString, symbolName typeform], 'Symbol]
   typeform is ['construct,: args] =>
       axAddLiteral('bracket, ['Apply, 'List, 'Symbol], [ 'Apply, 'Tuple, 'Symbol])
       axAddLiteral('string, 'Symbol, 'Literal)
-- 
cgit v1.2.3