diff --git a/kodiak.tal b/kodiak.tal index 58eb7ab..76a5a95 100644 --- a/kodiak.tal +++ b/kodiak.tal @@ -178,7 +178,7 @@ #00 OVR STZ ( d^ s^ [-c^] ; s<-0 ) #01 SUB SWP INC SWP ( d+1^ s-1^ [-c^] ) INCr !&loop ( d+1^ s-1^ [-c+1^] ) - &done POPr SWP ( s^ d^) + &done POPr SWP ( s^ d^ ) OVR LDZ #bf AND SWP STZ ( s^ ; d<-s ) #00 OVR STZ ( s^ ; s<-0 ) #01 SUB JMP2r ( s-1^ )