Changeset 14911 for src/Pugs/Prim.hs

Show
Ignore:
Timestamp:
12/17/06 22:57:40 (2 years ago)
Author:
luqui
Message:

Implemented listref return value for splice.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim.hs

    r14903 r14911  
    14251425    vals    <- fromVals w 
    14261426    vals'   <- splice start count vals 
    1427     ifListContext 
    1428         (return $ VList vals') 
    1429         (return $ last (undef:vals')) 
     1427    return $ VList vals' 
    14301428 
    14311429op4 other = \_ _ _ _ -> fail ("Unimplemented 4-ary op: " ++ other)