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 IN: regexp.prettyprint
   6
   7 M: regexp pprint*
   8     [
   9         [
  10             [ raw>> "/" "\\/" replace "R/ " % % "/" % ]
  11             [ options>> options>string % ] bi
  12         ] "" make
  13     ] keep present-text ;