Not logged in
Overview
SHA1 Hash:54e5f1b915778aadbdef13f0f6c1fec34d6ce74e
Date: 2010-10-25 18:29:01
User: crc
Comment:update to 11.0-2010.10.24 image
Timelines: family | ancestors | descendants | both | trunk
Other Links: files | manifest
Tags And Properties
Changes
[hide diffs]    [patch]

Modified hangman/files.retro from [753d69c1eb8b6f20] to [f6d2b7cfcfa53f79].

@@ -6,6 +6,6 @@
 with files'
 
 : fread! ( ha-f ) swap read dup rot ! ;
 : >file ( $h- )
   push repeat @+ dup 0 =if rdrop 2drop ;then
-  r write 0 =if rdrop 2drop ;then again ;
+  tors write 0 =if rdrop 2drop ;then again ;

Modified hangman/hangman.retro from [0597c0b2c0e1a172] to [09c240d5451d94f2].

@@ -80,14 +80,14 @@
 
 : foul+ (  c-  ) foul-addr foul-count @ + ! 1 foul-count +! ;
 
 : guess ( - )
   .prompt key >lower dup emit push
-  guessed @ r has if .already else
-    target @ r has if r guessChar .correct else
-      foul-addr r has if .already else
-        r foul+ lifeline -- .wrong then then then rdrop ;
+  guessed @ tors has if .already else
+    target @ tors has if tors guessChar .correct else
+      foul-addr tors has if .already else
+        tors foul+ lifeline -- .wrong then then then rdrop ;
 
 ( --[ Game Logic ]-------------------------------------------- )
 
 : _string  ( n-$ )  here swap for '_ , next 0 , ;
 

Modified retroImage from [226bc448151dafcf] to [6e01279bb4e5a688].

cannot compute difference between binary files