Changeset 3437 for src/Pugs/Types/Code.hs

Timestamp:

05/19/05 15:01:28 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5016

Message:

* remove primitive infix operators from being inserted into the

user-defined level of the precedence table; previously it was
breaking "or" and "and".

Files:

• src/Pugs/Types/Code.hs (modified) (3 diffs)

src/Pugs/Types/Code.hs

@@ -10 +10 @@
     code_assoc    :: a -> VStr
     code_params   :: a -> Params
+    code_type     :: a -> SubType
 
 instance CodeClass ICode where
@@ -20 +21 @@
     code_assoc c  = code_assoc . unsafePerformSTM $ readTVar c
     code_params c = code_params . unsafePerformSTM $ readTVar c
+    code_type c   = code_type . unsafePerformSTM $ readTVar c
 
 instance CodeClass VCode where
@@ -35 +37 @@
     code_assoc    = subAssoc
     code_params   = subParams
+    code_type     = subType