1 files changed, 13 insertions(+), 7 deletions(-)

M src/ornithologics.tal

@@ 67,6 67,16 @@ JMP2r
 
 JMP2r
 
+@wrap ( list* -- list* )
+
+	LDA2k STH2 ,pop JSR
+	LDA2k STH2 ,pop JSR
+	,nil JSR
+	STH2r ,cons JSR
+	STH2r ,cons JSR ,cons JSR
+
+JMP2r
+
 @unwrap ( list* -- list* )
 
 	INC2k INC2 LDA2 SWP2 LDA2 STH2k


@@ 143,13 153,9 @@ JMP2r
 
 @bluebird ( list* -- list* )
 
-	LDA2k STH2 ;pop JSR2
-	LDA2k STH2 ;pop JSR2
-	LDA2k STH2 ;pop JSR2
-	;nil JSR2
-	STH2r ;cons JSR2
-	STH2r ;cons JSR2 ;cons JSR2
-	STH2r ;cons JSR2
+	DUP2 ;pop JSR2
+	;wrap JSR2
+	OVR2 INC2 INC2 STA2
 
 JMP2r