Permalink
Browse files

Add support for comma-separated values (whitespace-separated still su…

…pported).

PR:		conf/121064
Submitted by:	koitsu
Reviewed by:	jh
  • Loading branch information...
1 parent 0ed5a88 commit a1e68c763087dfc4f32d85c994fe363777172489 @devinteske devinteske committed Dec 10, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 sys/boot/forth/support.4th
@@ -207,20 +207,20 @@ create last_module_option sizeof module.next allot 0 last_module_option !
dup 0= if 2drop 2drop false exit then
begin
begin
- swap dup c@ dup 32 = over 9 = or
- over 10 = or over 13 = or swap drop
+ swap dup c@ dup 32 = over 9 = or over 10 = or
+ over 13 = or over 44 = or swap drop
while 1+ swap 1- repeat
swap 2 pick 1- over <
while
2over 2over drop over compare-insensitive 0= if
2 pick over = if 2drop 2drop true exit then
2 pick tuck - -rot + swap over c@ dup 32 =
- over 9 = or over 10 = or over 13 = or
+ over 9 = or over 10 = or over 13 = or over 44 = or
swap drop if 2drop 2drop true exit then
then begin
- swap dup c@
- dup 32 = over 9 = or over 10 = or over 13 = or
- swap drop if false else true then 2 pick 0> and
+ swap dup c@ dup 32 = over 9 = or over 10 = or
+ over 13 = or over 44 = or swap drop
+ if false else true then 2 pick 0> and
while 1+ swap 1- repeat
swap
repeat

0 comments on commit a1e68c7

Please sign in to comment.