textproc/xmlada-gps/files/patch-schema_schema-validators-restrictions.adb


1
2
3
4
5
6
7
8
9
10
11

--- schema/schema-validators-restrictions.adb.orig	Tue Jan  2 10:28:58 2007
+++ schema/schema-validators-restrictions.adb	Tue Jan  2 10:30:55 2007
@@ -201,7 +201,7 @@
    begin
       Had_Restriction := True;
 
-      if Validator.Base.Block_Restriction and then Had_Restriction then
+      if Validator.Base.Block_Restriction then
          Validation_Error
            ("Restrictions of type """
             & Get_Local_Name (Validator.Base) & """ are forbidden");