--- gforth/cross.fs 1998/12/25 22:50:48 1.64 +++ gforth/cross.fs 1999/01/10 22:00:22 1.65 @@ -1966,6 +1966,10 @@ tcell 1 = 0 and or tcell 2 = 2 and or tcell 4 = 4 and or tcell 8 = 6 and or +tchar 1 = $00 and or +tchar 2 = $28 and or +tchar 4 = $50 and or +tchar 8 = $78 and or magic 7 + c! : save-cross ( "image-name" "binary-name" -- )