version 1.55, 2004/12/28 19:51:44
|
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 |