version 1.21, 1997/03/25 23:27:13
|
version 1.24, 1997/04/10 21:32:08
|
Line 69 NIL AConstant NIL \ gforth
|
Line 69 NIL AConstant NIL \ gforth
|
\ Aliases |
\ Aliases |
|
|
' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch |
' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch |
\ copy w from the return stack to the data stack |
\G copy w from the return stack to the data stack |
|
|
\ Bit string manipulation 06oct92py |
\ Bit string manipulation 06oct92py |
|
|
Line 1265 DEFER DOERROR
|
Line 1265 DEFER DOERROR
|
; |
; |
|
|
: (DoError) ( throw-code -- ) |
: (DoError) ( throw-code -- ) |
[ has-os [IF] ] outfile-id >r stderr to outfile-id [ [THEN] ] |
[ has-os [IF] ] |
|
outfile-id dup flush-file drop >r |
|
stderr to outfile-id |
|
[ [THEN] ] |
sourceline# IF |
sourceline# IF |
source >in @ sourceline# 0 0 .error-frame |
source >in @ sourceline# 0 0 .error-frame |
THEN |
THEN |
Line 1320 Defer 'cold ( -- ) \ gforth tick-cold
|
Line 1323 Defer 'cold ( -- ) \ gforth tick-cold
|
[ [THEN] ] |
[ [THEN] ] |
'cold |
'cold |
[ has-files [IF] ] |
[ has-files [IF] ] |
argc @ 1 > |
['] process-args catch ?dup |
IF |
IF |
['] process-args catch ?dup |
dup >r DoError cr r> negate (bye) |
IF |
THEN |
dup >r DoError cr r> negate (bye) |
argc @ 1 > |
THEN |
IF \ there may be some unfinished line, so let's finish it |
cr |
cr |
THEN |
THEN |
[ [THEN] ] |
[ [THEN] ] |