version 1.14, 2007/12/31 18:40:24
|
version 1.15, 2008/02/12 16:44:58
|
Line 17
|
Line 17
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
|
|
|
[ifundef] umin |
|
: umin ( u1 u2 -- u ) |
|
2dup u> |
|
if |
|
swap |
|
then |
|
drop ; |
|
[then] |
|
|
: char/ ; immediate |
: char/ ; immediate |
|
|
: parse-num-x ( c-addr1 umax -- c-addr2 c ) |
: parse-num-x ( c-addr1 umax -- c-addr2 c ) |