basis/regexp/prettyprint/prettyprint.factor

   1 ! Copyright (C) 2008, 2009 Doug Coleman, Daniel Ehrenberg.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel make prettyprint.backend
   4 prettyprint.custom regexp regexp.parser splitting ;
   5
   6 M: regexp pprint*
   7     [
   8         [
   9             [ raw>> "/" "\\/" replace "R/ " % % "/" % ]
  10             [ options>> options>string % ] bi
  11         ] "" make
  12     ] keep present-text ;