Commit b6c0fc62 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Revert "Check zero dimension in make-pq-object" 

This reverts commit 38acd6ba because
it was committed to master instead of to multiple-systems.
parent 38acd6ba

physical-quantities/scalar.lisp

+2 −3
Original line number Diff line number Diff line 
;; Physical dimension quantity with a magnitude that is a scalar

;; Liam Healy 2011-01-01 12:05:37EST grid.lisp

;; Time-stamp: <2015-04-24 17:01:41EDT scalar.lisp>

;; Time-stamp: <2013-03-23 18:55:13EDT scalar.lisp>



;; Copyright 2011, 2013 Liam M. Healy

;; Distributed under the terms of the GNU General Public License
@@ -70,8 +70,7 @@ 
		    t)))     ; only check vectors for non-scalar units

	  (dimel)

	  "~a is not a dimel" dimel)

  (if (or (and *zero-is-dimensionless* (zerop mag))

	  (equal dimel (dimension 'dimensionless)))

  (if (equal dimel (dimension 'dimensionless))

      mag

      (make-instance

       'physical-quantity