Add description to SC if available, so we can get the better dependen…

…cy out of date errors.
rakudo · Jul 26, 2011 · d0ce251 · d0ce251
1 parent c19671d
commit d0ce251
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -23,9 +23,10 @@ grammar Perl6::Grammar is HLL::Grammar {
         # Symbol table and serialization context builder - keeps track of
         # objects that cross the compile-time/run-time boundary that are
         # associated with this compilation unit.
-        my $*ST := Perl6::SymbolTable.new(
-            # XXX Need to hash the source, or something.
-            :handle(~pir::time__N()));
+        my $file := pir::find_caller_lex__ps('$?FILES');
+        my $*ST := pir::isnull($file) ??
+            Perl6::SymbolTable.new(:handle(~pir::time__N())) !!
+            Perl6::SymbolTable.new(:handle(~pir::time__N()), :description($file));
 
         self.comp_unit;
     }