define type in forth

1 files changed, 12 insertions, 10 deletions

diff --git a/core.fth b/core.fth
index 8d4789b..768f195 100644
--- a/core.fth
+++ b/core.fth
@@ -65,18 +65,20 @@
             dup cell+ allot
             rot here swap !
             swap postpone literal postpone literal then ; immediate
-: ."       postpone s" state @ if postpone type else type then ; immediate
+: type      ?dup if 0 do dup c@ emit 1+ loop then drop ;
+: ."        postpone s" state @ if postpone type else type then ; immediate
 
 : (         begin [char] ) key = until ; immediate
 
 : execute   [ here 3 cells + ] literal ! [ ' _jmp , 0 , ] ;
 
-: move     dup 0 <= if drop 2drop exit then
-           >r 2dup < r> swap if
-           1- 0 swap do over i + c@ over i + c! -1 +loop
-           else
-           0 do over i + c@ over i + c! loop
-           then 2drop ;
-: fill     -rot begin dup 0 > while
-           >r 2dup c! char+ r> 1- repeat
-           2drop drop ;
+: move      dup 0 <= if drop 2drop exit then
+            >r 2dup < r> swap if
+            1- 0 swap do over i + c@ over i + c! -1 +loop
+            else
+            0 do over i + c@ over i + c! loop
+            then 2drop ;
+: fill      -rot begin dup 0 > while
+            >r 2dup c! char+ r> 1- repeat
+            2drop drop ;
+