Housekeeping

src/manifest.tal

@@ -135,30 +135,9 @@ JMP2r
 
 @on-control-menu ( -> )
 
-BRK
-
-@print-manifest ( -- )
-
-	;manifest/name ;print-str JSR2
-	LIT '( #18 DEO ;print-str JSR2 POP2 LIT ') #18 DEO
-	#0a18 DEOk DEO
-	( menu )
-	;manifest/menu
-	&cat
-		LDAk STH INC2 ;print-str JSR2 #0a18 DEO
-		STHr #00
-		&subcat
-			SWP2
-			( modkey ) #0918 DEO ;print-mod JSR2 ;print-key JSR2
-			( spacer ) #2018 DEOk LIT ': #18 DEO DEO
-			( name ) INC2 INC2 ;print-str JSR2 #0a18 DEO
-			SWP2
-			INC GTHk ,&subcat JCN
-		POP2
-		LDAk ,&cat JCN
-	POP2
+	( TODO )
 
-JMP2r
+BRK
 
 @draw-cat ( -- )
 
@@ -288,6 +267,29 @@ JMP2r
 
 JMP2r
 
+@print-manifest ( -- )
+
+	;manifest/name ;print-str JSR2
+	LIT '( #18 DEO ;print-str JSR2 POP2 LIT ') #18 DEO
+	#0a18 DEOk DEO
+	( menu )
+	;manifest/menu
+	&cat
+		LDAk STH INC2 ;print-str JSR2 #0a18 DEO
+		STHr #00
+		&subcat
+			SWP2
+			( modkey ) #0918 DEO ;print-mod JSR2 ;print-key JSR2
+			( spacer ) #2018 DEOk LIT ': #18 DEO DEO
+			( name ) INC2 INC2 ;print-str JSR2 #0a18 DEO
+			SWP2
+			INC GTHk ,&subcat JCN
+		POP2
+		LDAk ,&cat JCN
+	POP2
+
+JMP2r
+
 @print-mod ( addr* -- addr* )
 
 	LDAk STH