gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.189, 2012/05/26 10:20:01	version 1.190, 2012/07/20 19:34:27
Line 1132 has? new-input 0= [IF]	Line 1132 has? new-input 0= [IF]

: boot ( path n **argv argc -- )	: boot ( path n **argv argc -- )
[ has? no-userspace 0= [IF] ]	[ has? no-userspace 0= [IF] ]
main-task up!	next-task 0= IF main-task up!
	ELSE
	next-task @ 0= IF
	throw-entry main-task udp @ throw-entry next-task -
	/string >r swap r> move
	next-task dup next-task 2! normal-dp dpp !
	THEN
	THEN
[ [THEN] ]	[ [THEN] ]
[ has? os [IF] ]	[ has? os [IF] ]
os-boot	os-boot