Changeset 15422 for src/Pugs/Prim.hs

Show
Ignore:
Timestamp:
03/03/07 14:59:15 (21 months ago)
Author:
audreyt
Message:

* To promote any boxable value to newland Val, use "mkVal"

now instead of the old (and ambiguous) "val".

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim.hs

    r15396 r15422  
    690690op1 "vv" = \v -> case v of 
    691691    VV{}        -> return v 
    692     VUndef      -> return . VV . Val.val $ () 
    693     VBool x     -> return . VV . Val.val $ ((cast x) :: Val.PureBit) 
    694     VInt x      -> return . VV . Val.val $ ((cast x) :: Val.PureInt) 
    695     VNum x      -> return . VV . Val.val $ ((cast x) :: Val.PureNum) 
    696     VRat x      -> return . VV . Val.val $ ((cast x) :: Val.PureNum) 
    697     VStr x      -> return . VV . Val.val $ ((cast x) :: Val.PureStr) 
     692    VUndef      -> return . VV . mkVal $ () 
     693    VBool x     -> return . VV . mkVal $ ((cast x) :: Val.PureBit) 
     694    VInt x      -> return . VV . mkVal $ ((cast x) :: Val.PureInt) 
     695    VNum x      -> return . VV . mkVal $ ((cast x) :: Val.PureNum) 
     696    VRat x      -> return . VV . mkVal $ ((cast x) :: Val.PureNum) 
     697    VStr x      -> return . VV . mkVal $ ((cast x) :: Val.PureStr) 
    698698    _           -> fail $ "don't know how to toVV: " ++ show v 
    699699