Examples

[cc1516.git] / gen.icl

diff --git a/gen.icl b/gen.icl
index 25a4e6f..87e4f8e 100644 (file)
--- a/gen.icl
+++ b/gen.icl
@@ -359,9 +359,9 @@ followFs [FieldTl:fs]   = tell [Instr "lda" [Lit 0] ""]
 followFs [FieldFst:fs]  = tell [Instr "ldc" [Lit 1] "select fst"
                                 ,Instr "sub" [] "select fst"]
                             >>| followFs fs
+followFs [FieldSnd]     = tell []
 followFs [FieldSnd:fs]  = tell [Instr "lda" [Lit 0] ""]
                             >>| followFs fs
-followFs [FieldSnd]     = tell []
 
 foldVarDecl :: Int VarDecl -> Gen Int
 foldVarDecl x (VarDecl _ mt k e) = g e