From c8862b8ed851d199705d64cc71b3349ac1715304 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 a1df7488..450afbbc 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 ++