Differences From Artifact [456cba1ff93f4908]:

File user/crc/eval.rx part of check-in [f17123c212] - move optional extensions from rx.fossil into the playground by crc on 2010-08-19 13:34:02. [annotate] [view]

To Artifact [a60a6460b8c51ff6]:

File user/crc/eval.rx part of check-in [180b240e3a] - updates to hangman, eval.rx now uses withLength by crc on 2010-11-16 15:30:55. [annotate] [view]

@@ -22,15 +22,15 @@
 
 ( Conditional Execution ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 {{
   : defined    ( "-f ) 32 accept tib find nip ;
-  : evalTib    (  -  ) tib dup getLength eval ;
-  : error      (  -  ) ." Invalid Syntax" cr ;
-  : read       (  -  ) char: } accept ;
-  : block      ( "-  ) char: { key over =if emit read else drop error then ;
+  : evalTib    (  -  ) tib withLength eval ;
+  : error      (  -  ) "Invalid Syntax\n" puts ;
+  : read       (  -  ) '} accept ;
+  : block      ( "-  ) '{ key over =if emit read else drop error then ;
   : evalBlock  ( "-  ) block evalTib ;
   : ifBlock    ( f"- ) if evalBlock ;then block ;
 ---reveal---
   : ifDefined    ( "- ) defined ifBlock ;
   : ifNotDefined ( "- ) defined not ifBlock ;
 }}