~rabbits/orca-toy

9317f68d57a61a5caa07c949c4c04dd1adf3bdce — Devine Lu Linvega 1 year, 4 months ago 2dc83df
Fixed issue with #40 and #60 chars
1 files changed, 2 insertions(+), 2 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +2 -2
@@ 728,14 728,14 @@ BRK
	ROT

	( lowercase )
	DUP #60 < ,&no-lc JCN
	DUP #61 < ,&no-lc JCN
	DUP #7b > ,&no-lc JCN
		STH DUP2 ;get-bang JSR2 ,&run JCN 
		POPr POP2 RTN
		&no-lc

	( uppercase )
	DUP #40 < ,&no-uc JCN
	DUP #41 < ,&no-uc JCN
	DUP #5a > ,&no-uc JCN
		STH DUP2 OPERATOR-TYPE SET-TYPE &run STHr 
		DUP GET-VALUE #0a - 2* TOS ;operations ++ LDA2 JMP2