moved interruption to GFI level to capture all commands

This commit is contained in:
aarne
2008-06-26 21:01:51 +00:00
parent 9d909f32cf
commit 4a9bc587a5
8 changed files with 15 additions and 6 deletions

View File

@@ -7,7 +7,7 @@ concrete LexiconAra of Lexicon = CatAra ** open
Prelude in {
flags
optimize=values ;
optimize=values ; coding=utf8 ;
lin

View File

@@ -1,6 +1,6 @@
resource MorphoAra = ResAra ** open Prelude in {
flags optimize = all ;--noexpand;
flags optimize = all ;--noexpand; coding=utf8 ;
oper

View File

@@ -31,7 +31,7 @@ resource ParadigmsAra = open
CatAra
in {
flags optimize = noexpand;
flags optimize = noexpand; coding=utf8 ;
oper

View File

@@ -1,5 +1,7 @@
resource PatternsAra = {
flags coding=utf8 ;
oper
fA' = { h = "" ; m1 = ""; m2 = ""; t = "َاء"} ;

View File

@@ -9,7 +9,7 @@
--
resource ResAra = PatternsAra ** open Prelude, Predef in {
flags optimize=noexpand ;
flags optimize=noexpand ; coding=utf8 ;
param

View File

@@ -1,7 +1,7 @@
concrete StructuralAra of Structural = CatAra **
open MorphoAra, ResAra, ParadigmsAra, Prelude in {
flags optimize=all ;
flags optimize=all ; coding=utf8 ;
lin
above_Prep = ss "فَوْقَ" ;