deparse needs to show ?X for introduced names

diff --git a/lib/DX/Deparse.pm b/lib/DX/Deparse.pm
index df624c5..ff590f9 100644 (file)
--- a/lib/DX/Deparse.pm
+++ b/lib/DX/Deparse.pm
@@ -138,7 +138,9 @@ sub _fmt_proposition {
   my ($self, $prop, $meta) = @_;
   join ' ',
     $prop->predicate,
-    map $self->_fmt($_, $meta), @{$prop->args};
+    map $self->_fmt($_, $meta),
+      map +((!ref($_) and $prop->introduced_names->{$_}) ? "?$_" : $_),
+        @{$prop->args};
 }
 
 sub _fmt_scope {