Skip to content

Instantly share code, notes, and snippets.

@zoffixznet
Created September 28, 2017 18:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zoffixznet/7ac7991e2aa9a197f6ddfc06543639d9 to your computer and use it in GitHub Desktop.
Save zoffixznet/7ac7991e2aa9a197f6ddfc06543639d9 to your computer and use it in GitHub Desktop.
diff --git a/src/Perl6/Optimizer.nqp b/src/Perl6/Optimizer.nqp
index 0954dfc..6d84b8e 100644
--- a/src/Perl6/Optimizer.nqp
+++ b/src/Perl6/Optimizer.nqp
@@ -1377,24 +1377,12 @@ class Perl6::Optimizer {
}
method convert_unicode_op_to_texas($op) {
- sub should-texify ($from, $to) {
- try {
- $!symbols.find_lexical($to);
- $!symbols.is_from_core($to) && 1;
- } ?? 1 !! 0;
- }
-
- if $!symbols.is_from_core: $op.name {
- my $name := $op.name;
- if ($name eq '&infix:<≤>'
- && should-texify('&infix:<≤>', '&infix:«<=»')) {
- $op.name: '&infix:«<=»' }
- elsif ($name eq '&infix:<≥>'
- && should-texify('&infix:<≥>', '&infix:«>=»')) {
- $op.name: '&infix:«>=»' }
- elsif ($name eq '&infix:<≠>'
- && should-texify('&infix:<≠>', '&infix:<!=>')) {
- $op.name: '&infix:<!=>' }
+ sub asciify ($to) { $!symbols.find_lexical($to); $!symbols.is_from_core($to) && $op.name: $to }
+
+ if $!symbols.is_from_core: my $name := $op.name {
+ if ($name eq '&infix:<≤>') { asciify('&infix:«<=»') }
+ elsif ($name eq '&infix:<≥>') { asciify('&infix:«>=»') }
+ elsif ($name eq '&infix:<≠>') { asciify('&infix:<!=>') }
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment