1 files changed, 3 insertions(+), 5 deletions(-)

M src/ornithologics.tal

@@ 54,11 54,9 @@ JMP2r
 
 @swap ( list* -- list* )
 
-	LDA2k STH2 ,pop JSR
-	LDA2k STH2 ,pop JSR
-	SWP2r
-	STH2r ,cons JSR
-	STH2r ,cons JSR
+	( a.car a.cdr | b.car ) STH2k INC2 INC2 STH2k LDA2 
+	( a.cdr -> b.cdr ) INC2k INC2 LDA2k SWP2r STH2r ROT2 STA2 
+	( b.cdr -> a.cdr ) STH2r STA2
 
 JMP2r