Bug - NQPMu

hythm7 · May 4, 2017 · 94780b4 · 94780b4
1 parent 35273cb
commit 94780b4
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 18 deletions.
diff --git a/bin/galaxy.p6 b/bin/galaxy.p6
@@ -2,11 +2,8 @@
 use lib <lib>;
 use Universe;
 
-#my %physics = LawCmd.create(@*ARGS.Str);
-#my %physics-cnf = LawCnf.create('bin/laws');
-#say %physics.perl;
-
 my $u = Universe.new;
-say $u.physics;
+
+say $u.physics.perl;
 say $u.galaxy.laws.perl;
 say $u.alien.laws.perl;
diff --git a/lib/Laws.pm b/lib/Laws.pm
@@ -208,22 +208,15 @@ class Laws		{
 	method star($/) 			{
 		my %star;
 		%star<star>	= $/.Str;
-		%star<name>	= $<star-name>.ast;
-		%star<age>	= $<star-age>.ast;
-		%star<core>	= $<star-core>.ast;
-		%star<form>	= $<star-form>.ast;
-		%star<tag>	= $<star-tag>.ast;
-		%star<tag>	= $<star-tag>.ast;
+		%star<name>	= $<star-name>.Str if $<star-name>;
+		%star<age>	= $<star-age>.Str if $<star-age>;
+		%star<core>	= $<star-core>.Str if $<star-core>;
+		%star<form>	= $<star-form>.Str if $<star-form>;
+		%star<tag>	= $<star-tag>.Str if $<star-tag>;
+		%star<tail>	= $<star-tail>.Str if $<star-tail>;
 		make %star;
 
 	}
-	method star-name($/) 	{ make $/.Str }
-	method star-age($/) 	{ make $/.Str	}
-	method star-core($/) 	{ make $/.Str }
-	method star-form($/)	{ make $/.Str }
-	method star-tag($/) 	{ make $/.Str }
-	method star-ext($/) 	{ make $/.Str }
-
 	method realm($/)	{ make $<object>.made => $<object-laws>.made}	
 	method value($/) 	{ make $/.Str	}
 }