use latest rhombus additions to remove any static dependency on rhombus

Author: rfindler

redex-doc/redex/scribblings/ref/typesetting.scrbl

@@ -71,10 +71,14 @@ picts inline in the paper. For producing
 papers with LaTeX, create @filepath{.ps} files from the picts with Redex,
 which can be included into a LaTeX document.
 
-Redex picts can also be used with
-@seclink["top" #:doc '(lib "rhombus/pict/scribblings/rhombus-pict.scrbl") #:indirect? #t]{Rhombus's
- pict library}. When the Rhombus library is installed, Redex creates Rhombus picts and
-when it is not installed, Redex creates Racket picts.
+Redex picts can also be used with the
+@seclink["top" #:doc '(lib "rhombus/pict/scribblings/rhombus-pict.scrbl") #:indirect? #t]{
+ Rhombus's pict library}. When the Rhombus library is installed, Redex
+creates Rhombus picts and when it is not installed, Redex
+creates Racket picts. Rhombus picts are
+@tech[#:doc '(lib "pict/scribblings/pict.scrbl")]{pict
+ convertible}, however, so Rhombus picts can be used whenever the Racket library
+picts are expected.
 
 @section{Generating Picts}
 

redex-pict-lib/redex/private/pict-interface.rkt

@@ -250,6 +250,8 @@ pict library.
     [(rhombus-present?)
      (define rhombus-dynamic-require
        (dynamic-require 'rhombus/dynamic-require 'rhombus-dynamic-require))
+     (define rhombus-dynamic-require-predicate
+       (dynamic-require 'rhombus/dynamic-require 'rhombus-dynamic-require-predicate))
      (define dynamic-dot-ref
        (dynamic-require 'rhombus/dot 'dynamic-dot-ref))
      (define r:from_handle
@@ -259,13 +261,11 @@ pict library.
        ((dynamic-dot-ref (r:Find sub #:horiz h #:vert v)
                          'in)
         pict))
+     (define r:is_pict
+       (rhombus-dynamic-require-predicate '(lib "rhombus/pict.rhm") 'Pict))
      (values Find
              r:from_handle
-             (parameterize ([current-namespace ns])
-               (namespace-require '(all-except rhombus #%top))
-               (namespace-require 'rhombus/parse)
-               (namespace-require 'redex/private/rhombus-bridge)
-               (eval 'is_pict)))]
+             r:is_pict)]
     [else
      (values "dummy value that's not rhombus's find"
              "dummy value that's not rhombus's find_handle"