90
90
function SymbolicDimensionsSingleton {R} (s:: Symbol ) where {R}
91
91
i = get (ALL_MAPPING, s, INDEX_TYPE (0 ))
92
92
iszero (i) && error (" $s is not available as a symbol in `SymbolicDimensionsSingleton`. Symbols available: $(ALL_SYMBOLS) ." )
93
- SymbolicDimensionsSingleton {R} (i)
93
+ return SymbolicDimensionsSingleton {R} (i)
94
94
end
95
95
96
96
# Traits:
@@ -367,15 +367,14 @@ to enable pretty-printing of units.
367
367
"""
368
368
module SymbolicUnits
369
369
370
-
371
370
import .. UNIT_SYMBOLS
372
371
import .. CONSTANT_SYMBOLS
373
372
import .. SymbolicDimensionsSingleton
374
- import ... constructorof
375
- import ... DEFAULT_SYMBOLIC_QUANTITY_TYPE
376
- import ... DEFAULT_SYMBOLIC_QUANTITY_OUTPUT_TYPE
377
- import ... DEFAULT_VALUE_TYPE
378
- import ... DEFAULT_DIM_BASE_TYPE
373
+ import .. DEFAULT_SYMBOLIC_QUANTITY_TYPE
374
+ import .. constructorof
375
+ import .. DEFAULT_SYMBOLIC_QUANTITY_OUTPUT_TYPE
376
+ import .. DEFAULT_VALUE_TYPE
377
+ import .. DEFAULT_DIM_BASE_TYPE
379
378
380
379
# Lazily create unit symbols (since there are so many)
381
380
module Constants
@@ -393,9 +392,7 @@ module SymbolicUnits
393
392
@eval begin
394
393
const $ unit = constructorof (DEFAULT_SYMBOLIC_QUANTITY_TYPE)(
395
394
DEFAULT_VALUE_TYPE (1.0 ),
396
- SymbolicDimensionsSingleton {DEFAULT_DIM_BASE_TYPE} (
397
- $ (QuoteNode (disambiguate_symbol (unit))),
398
- ),
395
+ SymbolicDimensionsSingleton {DEFAULT_DIM_BASE_TYPE} ($ (QuoteNode (disambiguate_symbol (unit))))
399
396
)
400
397
push! (_SYMBOLIC_CONSTANT_VALUES, $ unit)
401
398
end
@@ -412,7 +409,7 @@ module SymbolicUnits
412
409
@eval begin
413
410
const $ unit = constructorof (DEFAULT_SYMBOLIC_QUANTITY_TYPE)(
414
411
DEFAULT_VALUE_TYPE (1.0 ),
415
- SymbolicDimensionsSingleton {DEFAULT_DIM_BASE_TYPE} ($ (QuoteNode (unit))),
412
+ SymbolicDimensionsSingleton {DEFAULT_DIM_BASE_TYPE} ($ (QuoteNode (unit)))
416
413
)
417
414
push! ($ symbolic_unit_values, $ unit)
418
415
end
0 commit comments