small fixes to typeconversion.sl
This commit is contained in:
@@ -62,7 +62,7 @@ word tostr
|
|||||||
2 pick
|
2 pick
|
||||||
2 + pick
|
2 + pick
|
||||||
3 pick rot +
|
3 pick rot +
|
||||||
swap 48 + c!
|
swap 48 + swap 1 - swap c!
|
||||||
drop
|
drop
|
||||||
swap
|
swap
|
||||||
1 +
|
1 +
|
||||||
@@ -74,11 +74,12 @@ word tostr
|
|||||||
over for
|
over for
|
||||||
rot drop
|
rot drop
|
||||||
end drop
|
end drop
|
||||||
swap 1 + swap puts
|
|
||||||
end
|
end
|
||||||
|
|
||||||
word main
|
word main
|
||||||
"1234" toint 1 + dup puti cr
|
"1234" toint 1 + dup puti cr
|
||||||
tostr
|
tostr
|
||||||
|
2dup
|
||||||
puts
|
puts
|
||||||
|
free
|
||||||
end
|
end
|
||||||
|
|||||||
Reference in New Issue
Block a user