From 2f10c2d769beb12604d97bf054ab6e12f131ba28 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 11 Jan 2022 15:16:26 +0100
Subject: [PATCH] an optimization which would be relevant with the new compiler

---
 src/scandinavian/NounScand.gf | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/scandinavian/NounScand.gf b/src/scandinavian/NounScand.gf
index a1df7488d..450afbbce 100644
--- a/src/scandinavian/NounScand.gf
+++ b/src/scandinavian/NounScand.gf
@@ -13,9 +13,9 @@ incomplete concrete NounScand of Noun =
       let 
         g = cn.g ;
         m = cn.isMod ;
-        dd = case <det.det,detDef,m> of {
-          <DDef Def, Indef, True> => DDef Indef ;
-          <d,_,_> => d
+        dd = case <detDef,det.det,m> of {
+          <Indef, DDef Def, True> => DDef Indef ;
+          <_,d,_> => d
           }
       in {
       s = \\c => det.s ! m ! g ++