     ] [
       m ans>> seed>>
     ] if
-  ] ;
+  ] ; inline
 
 :: recall ( r p -- memo-entry )
   [let* |

    ] [
      r p apply-non-memo-rule
    ] if 
  ] ;

: with-packrat ( input quot -- result )
  #! Run the quotation with a packrat cache active.

  ] [ 
    pos set   
    fail
  ] if* ; inline

: memo ( pos rule -- memo-entry )
  #! Return the result from the memo cache. 
