From 7c30d211c3eda504668c0eab51e99d6e52db2127 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 27 Mar 2007 16:40:54 +0000 Subject: distinct form for opers that have no value --- devel/compiler/ex.src | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'devel/compiler/ex.src') diff --git a/devel/compiler/ex.src b/devel/compiler/ex.src index f7b381548..e8f0c6374 100644 --- a/devel/compiler/ex.src +++ b/devel/compiler/ex.src @@ -22,15 +22,15 @@ lin Voiture : CN = { g = (Fem@) } ; -{- + lin Bus : CN = { s = table {$x => "bus"} ; g = (Masc@) } ; - +{- lin Def : CN -> NP = \cn -> { - s = artDef $cn.g ++ $cn.s ! (Sg@) ; + s = &artDef $cn.g ++ $cn.s ! (Sg@) ; a = {g = $cn.g ; n = (Sg@)} } ; -} \ No newline at end of file -- cgit v1.2.3