Fixed leak on sub bounds

4 years ago · dd0553fc1a
1 changed files with 5 additions and 1 deletions
--- a/src/manifest.tal
+++ b/src/manifest.tal
@ -131,9 +131,11 @@ JMP2r

@menu-select-sub ( sub -- )

-	;get-sub JSR2 DUP2 #0000 EQU2 ,&skip JCN
+	;get-sub JSR2
+	DUP2 #0000 EQU2 ,&skip JCN
 		JSR2 ;menu-close JSR2 JMP2r
 		&skip
+	#1234 ;print JSR2 #0a18 DEO
 	POP2
 	;menu-close JSR2

@ -238,7 +240,9 @@ JMP2r
 		SWP2 #0004 ADD2 ;skip-str JSR2 SWP2
 		INC GTHk ,&subcat JCN
 	POP2 POP2
+	POPr
 	#0000
+	JMP2r
 	&end
 	POP2
 	INC2 INC2 LDA2