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 regexp.private ;
   5 IN: regexp.prettyprint
   6
   7 M: regexp pprint*
   8     [
   9         [
  10             [ raw>> dup find-regexp-syntax swap % swap % % ]
  11             [ options>> options>string % ] bi
  12         ] "" make
  13     ] keep present-text ;