From d06a76bab9a889750631690880fecdaa91fbeaff Mon Sep 17 00:00:00 2001 From: Ayberk Tosun Date: Tue, 22 Aug 2017 17:49:40 +0300 Subject: [PATCH] Various cleanups --- src/turkish/LangTur.gf | 5 +++-- src/turkish/ResTur.gf | 6 +++--- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/src/turkish/LangTur.gf b/src/turkish/LangTur.gf index 5cf2e8157..3458a054a 100644 --- a/src/turkish/LangTur.gf +++ b/src/turkish/LangTur.gf @@ -1,8 +1,9 @@ --# -path=.:../abstract:../common:../prelude -concrete LangTur of Lang = +concrete LangTur of Lang = GrammarTur, - LexiconTur + LexiconTur, + AdverbTur ** { flags startcat = Phr ; unlexer = text ; lexer = text ; coding=utf8 ; diff --git a/src/turkish/ResTur.gf b/src/turkish/ResTur.gf index a1b2652f1..7a6ee269d 100644 --- a/src/turkish/ResTur.gf +++ b/src/turkish/ResTur.gf @@ -62,11 +62,11 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in { a = {n=n; p=p} ; } ; ---Prep - + -- Prep no_Prep = mkPrep [] Acc; + mkPrep : Str -> Case -> {s : Str; c : Case; lock_Prep : {}} = - \s,c -> lin Prep {s=s; c=c}; + \s, c -> lin Prep {s=s; c=c}; mkClause : Str -> Agr -> Verb -> {s : Str} = \np, a, v -> ss (np ++ v.s ! VProg a) ;