extra/smalltalk/eval/eval.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: compiler.units io.encodings.utf8 io.files
   4 smalltalk.compiler smalltalk.parser ;
   5 IN: smalltalk.eval
   6
   7 : eval-smalltalk ( string -- result )
   8     [ parse-smalltalk compile-smalltalk ] with-compilation-unit
   9     call( -- result ) ;
  10
  11 : eval-smalltalk-file ( path -- result )
  12     utf8 file-contents eval-smalltalk ;