Starling uses the wrap primitive
1 files changed, 4 insertions(+), 7 deletions(-) M src/ornithologics.tal
M src/ornithologics.tal => src/ornithologics.tal +4 -7
@@ 193,14 193,11 @@ JMP2r @starling ( list* -- list* ) - LDA2k STH2 ;pop JSR2 - LDA2k STH2 ;pop JSR2 - LDA2k STH2 ;pop JSR2 - ;nil JSR2 - STH2kr ;cons JSR2 - SWP2r STH2r ;cons JSR2 ;cons JSR2 - STH2r ;cons JSR2 + DUP2 ;pop JSR2 + DUP2 ;pop JSR2 LDA2 STH2 + ;wrap JSR2 STH2r ;cons JSR2 + OVR2 INC2 INC2 STA2 JMP2r