Merge pull request #1107 from dpvc/context-units

Add new contextUnits.pl implementing units as true MathObject classes
openwebwork · Dec 3, 2024 · 14dc056 · 14dc056
2 parents ffff523 + 6dcc4c3
commit 14dc056
Show file tree

Hide file tree

Showing 2 changed files with 2,088 additions and 4 deletions.
diff --git a/lib/Value.pm b/lib/Value.pm
@@ -308,10 +308,9 @@ sub matchNumber   { my $n = shift; $n =~ m/^$$Value::context->{pattern}{signedNu
 sub matchInfinite { my $n = shift; $n =~ m/^$$Value::context->{pattern}{infinite}$/i }
 sub isReal        { classMatch(shift, 'Real') }
 sub isComplex     { classMatch(shift, 'Complex') }
-# sub isContext {class(shift) eq 'Context'} # MEG
-sub isContext { my $symbol = shift || ""; class($symbol) eq 'Context' }
-sub isFormula { classMatch(shift, 'Formula') }
-sub isParser  { my $v = shift; isBlessed($v) && $v->isa('Parser::Item') }
+sub isContext     { class(shift // '') eq 'Context' }
+sub isFormula     { classMatch(shift, 'Formula') }
+sub isParser      { my $v = shift; isBlessed($v) && $v->isa('Parser::Item') }
 
 sub isValue {
 	my $v = shift // '';