Changeset 15371 for src/Pugs/Prim.hs

Timestamp:

02/27/07 17:01:04 (21 months ago)

Author:

audreyt

Message:

* cmp() (and by extension, sort()) should default on lexographic

sorting if either side is non-numeric.

Files:

• src/Pugs/Prim.hs (modified) (1 diff)

src/Pugs/Prim.hs

@@ -1515 +1515 @@
 op2OrdNumStr x y
     | isNumeric x && isNumeric y = op2Ord vCastRat x y
-    | otherwise                  = op2OrdNumeric compare x y
+    | otherwise                  = op2Ord vCastStr x y
 
 op3Caller :: Type -> Int -> Val -> Eval Val