version 1.54, 2004/06/19 15:32:31
|
version 1.57, 2006/05/07 18:14:11
|
Line 1
|
Line 1
|
\ SEE.FS highend SEE for ANSforth 16may93jaw |
\ SEE.FS highend SEE for ANSforth 16may93jaw |
|
|
\ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc. |
\ Copyright (C) 1995,2000,2003,2004 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 266 VARIABLE C-Pass
|
Line 266 VARIABLE C-Pass
|
\ print x as a word if possible |
\ print x as a word if possible |
dup look 0= IF |
dup look 0= IF |
drop dup threaded>name dup 0= if |
drop dup threaded>name dup 0= if |
2drop dup 1 cells - @ dup body> look |
drop over 1 cells - @ dup body> look |
IF |
IF |
nip dup ." <" name>string rot wordinfo .string ." > " |
nip nip dup ." <" name>string rot wordinfo .string ." > " |
ELSE |
ELSE |
drop ." <" 0 .r ." > " |
2drop ." <" 0 .r ." > " |
THEN |
THEN |
EXIT |
EXIT |
then |
then |
Line 673 Defer discode ( addr u -- ) \ gforth
|
Line 673 Defer discode ( addr u -- ) \ gforth
|
cell +loop |
cell +loop |
here ; |
here ; |
|
|
|
[ifundef] umin \ !! bootstrapping help |
: umin ( u1 u2 -- u ) |
: umin ( u1 u2 -- u ) |
2dup u> |
2dup u> |
if |
if |
swap |
swap |
then |
then |
drop ; |
drop ; |
|
[then] |
|
|
: next-prim ( addr1 -- addr2 ) \ gforth |
: next-prim ( addr1 -- addr2 ) \ gforth |
\G find the next primitive after addr1 (unreliable) |
\G find the next primitive after addr1 (unreliable) |
1+ >r -1 primstart |
1+ >r -1 primstart |