Streamline handling compiling options

rakudo · Jan 13, 2016 · 7f592ce · 7f592ce
1 parent a192ec5
commit 7f592ce
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/core/Rakudo/Internals.pm b/src/core/Rakudo/Internals.pm
@@ -715,10 +715,13 @@ my class Rakudo::Internals {
         $escaped
     }
 
-    # return whether running with --ll-exception
+    # easy access to compile options
+    my Mu $compiling-options := nqp::atkey(%*COMPILING, '%?OPTIONS');
+    $compiling-options := nqp::hash() if nqp::isnull($compiling-options);
+
+    # running with --ll-exception
     method LL-EXCEPTION() {
-        my Mu $opts := nqp::atkey(%*COMPILING, '%?OPTIONS');
-        !nqp::isnull($opts) && !nqp::isnull(nqp::atkey($opts, 'll-exception'))
+        nqp::existskey($compiling-options, 'll-exception')
           ?? '--ll-exception'
           !! Empty
     }