• branch=trunk inherited from [dc67bca1f3]
• sym-trunk inherited from [dc67bca1f3]

Modified hangman/dict.retro from [b6a0d9ead4fd6467] to [3076579102b4d2b4].

@@ -7,12 +7,10 @@
 ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 
 with files'
 with math'
 
-include files.retro
-
 ( --[ Variables ]--------------------------------------------- )
 
 : sys-dict "wordlist.txt" :r ;
 
 variable dict                                         0 dict !
@@ -28,13 +26,13 @@
 
 : rand-off   ( -n ) dict-size @ toRandom ;
 : rand-pos   ( -n ) rand-off dict @ seek drop ;
 
 : >line      ( -  ) repeat dict @ read 10 =if ;then again ;
-
+: fread!     ( ha-f ) swap read dup rot ! ;
 : readline   ( -  ) dict-word repeat dict @ over fread! drop
-                    dup @ 10 =if 0 swap ! ;; else 1+ then again ;
+                    dup @ 10 =if 0 swap ! ;else 1+ then again ;
 
 : rand-word  ( -  ) rand-pos >line readline ;
 : close-dict ( -  ) dict @ close 0 =if
                     "Error: Can't close dictionary." puts then ;
 

Deleted hangman/files.retro version [f6d2b7cfcfa53f79]

@@ -1,11 +0,0 @@
-( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-( Copyright [c] 2010, Charles Childers                      )
-( License: ISC                                              )
-( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-
-with files'
-
-: fread! ( ha-f ) swap read dup rot ! ;
-: >file ( $h- )
-  push repeat @+ dup 0 =if rdrop 2drop ;then
-  tors write 0 =if rdrop 2drop ;then again ;